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From the people 
who brought you... 
BUSINESSPaKH+ 


Five NEW programs 


designed for the 
businessperson. 


BUSINESSPaKH+ 
PORTABLE COMMUTER SURRE ORAL 


"1035 HARRY HINES BLVD. #207. DALLAS. TEXAS 75220 
PROVIDING SOFTWARE FOR THE TRS-80 MODEL 100 


1 - 214 - 351-0564 





Each on its ovvn cassette 
vvith interesting manual. 


Aint with softwere for the Mode! fap 


You have made BUSINESSPAK+ an over- 
whelming success! Now, we are introducing 
five new programs for the Model 100. 

PCSG continues to be first in innovative 
programming for the businessperson using 
the TRS-80 Model 100 Computer. 

Look at these five new programs. 


DATA+ $59.95 


With DATA+ the Model 100 becomes virtually a 
true data base. You can input data rapidly from 
a 16 field screen that you make yourself like our 
PUT+. Here is the difference: 

REVIEW / Using function key 1 you can recall 
any record, by searching any field. 

EDIT / Change or update any record you select, 
instantly on the screen, 

LIST / Using function key 5 you can print add- 
ress labels, list records or selected fields of records 
in columns or other configurations. You can 
even pause, and reset left margins. 

MERGE / Function key 6 lets you merge. You 
can automatically print any fields of any records 
into forms or letters, wherever you designate. 
With all four of these functions you have full 
search and selection capability. 

With LIST and MERGE DATA+ remembers 
your favorite formats, quickly defaulting to them 
by simply pressing the ENTER key. The added 
feature BUILD lets you build and print a file of 
unrelated records that could not be selected 
either alphabetically or numerically. 

On cassette with excellent, easy to understand 
manual. 


TRS-80 Model 100 is a 
trademark of Tandy Corporation 
©1983 Portable Computer Support Group 


TYPE+ $59.95 


The Model 100 now becomes, with the addition 
of any printer, the finest, most feature rich, 
electronic typewriter available today, You can 
type directly to the paper. (Some printers have 
a one line buffer.) 
SCREEN BUFFER / To allow you to edit before 
printing, you can control the screen buffer from 
1 character to the last line, 
CENTER / Center on / center off controlled 
with function keys. 
MARGINS / Set margins with function keys. 
Audible end of carriage, automatic carriage 
return and function key Tab Set. 
DIRECT CONTROL / If your printer responds to 
backspace commands, you can backspace and 
overstrike. Paper advances with carriage return. 
With TYPE+, everything you print is stored 
simultaneously in a RAM file, formatted as you 
composed it. You can reprint instantly, or edit 
it in the file. On cassette with excellent, easy 
to understand manual. 


TUTOR+ $29.95 


Learn keyboard skills by playing a delightfully 
exciting game. While experiencing the thrills of 
a space invaders type game you become profic- 
ient at manipulating the keyboard. A game that 
forces you to learn touch typing, utilizing all 
the keys. On cassette with excellent, easy to 
understand manual. 


PCSG provides hotline software support 
for the Model 100. Give us a call at 
1-214-351-0564. 





SORT2+ 


You can sort a file in place with SORT2+. It 
consumes only 1k free memory, while sorting file 
in RAM you entered with PUT+ or DATA+. Our 
original SORT: allows you to sort from cassette, 
but requires more memory while sorting. SORT2+ 
is for those times when memory or cassette sorting 
is a problem, SORT2+ also has upper case fold, 
and true numeric field sort. On cassette with 
excellent, easy to understand manual, 


$29.95 


TENKY+ $59.95 


With TENKY 4 the numeric keypad on your Model 
100 emulates both a ten-key desk calculator, and a 
financial calculator, The right side of the screen 
represents the tape, which can also be directed to 

a file and/or a printer. Ten working registers are 
visible on the left of the screen, each one function- 
ing independently as a calculator with functions 
including exponentiation and logarithms. Regist zs 
are accessible from each other, including the tape 
which stores up to 120 values, each associated with 
a note of up to 26 characters, 

Financial functions available at the touch of a 
key include IRR, MIRR, and NPV on up to 120 
cash flows, plus any of its six annuity variables 
(n, PV, FV, PMT, i). Function key F2 gives a 
printed amortization schedule, and businessmen 
will love the breakeven analysis they can receive 
simply by pressing function key F1. 


Portable Computer Support Group is 
pleased to offer these program additions. 
We endeavor to continue as The Leaders in 
Software for the Model 100. 


RORIABLE COMPUTER SUERORT ORQUP 


11035 Harry Hines Blvd, No. 207, Dallas, TX 75229 


MASTERCARD / VISA / COD 


From Computer Plus to YOU... 


PLUS after PLUS after PLUS 


Model IV 16K $849 
Model IV 64K 
2 Disk & RS232 $1699 


Color Computer II 46K $185 
w/46K Ext. Basic $245 
w/64K Ext. Basic $305 


Model 100 8K $679 
Model 100 24K $835 


CITOH Prowriter $375 


CITOH Prowriter II $649 
Here are just a few of our fine offers... 


BUY DIRECT call TOLL FREE for full information. 


PRINTERS DISK DRIVES 
Smith Corona TPI D.W. 469 R.S. Model 4 Drive 0 
Silver Reed EXP500 D.W. 425 Color Computer Drive 0 
Silver Reed EXP550 D.W. 645 Color Computer Drive 4 
Daisy Wheel II 1745 Primary Hard Disk M12 


CoCo Drive 0 $329 DWP210 $629 


CoCo Drive 1 $235 


COMPUTERS 
Model 12 64K 4 Drive 
Model 12 64K 2 Drive 
Model 4 16K 
Model 4 64K 


$2699 
3375 


2 Disk & RS232 
Model 4 Portable 
64K 2 Disk 
Color Computer Il 16K 
wi16K ext. basic 
wl64K ext. basic 
Pocket Computer 2 
Model 16B 1Dr 256K 
Model 16B 2Dr 256K 
Model 100 8K 
Model 100 24K 
MODEMS 
Hayes Smartmodem II 
Hayes Smartmodem 1200 
Novation Smartcat 1200 
Novation J-Cat 
R.S. AC-3 
R.S. Modem I 
R.S. Modem II 


DWP240 
DWP410 
CGP115 
CGP220 Ink Jet 
DMP100 
DMP120 
DMP200 
DMP420 
DMP500 
DMP2100 
Gemini 10X 
Delta-10 
Gemini 15 
CITOH Prowriter 
CITOH Prowriter II 
Okidata 

Epson 


We have the lowest possible 
Fully Warranteed Prices AND 

a full complement of Radio Shack 
Software. 


Prices subject to change without notice. 
Not responsible for typographical errors. 


TRS-80 is c registered trademark of Tandy Corp. 


629 
1159 
159 
545 
215 
395 
520 
735 
1219 
1745 
315 
515 
425 
375 
649 
CALL 
CALL 


Primary Hard Disk MIII 
ETC. 

CCR-81 recorder 

C.C. Joysticks (pair) 

16K Ram Chips 

64K Ram Chips 

8K Par/Par Microfaser 

Printer Cables 

Printer Stands 

Printer Ribbons 

Printer Paper 

Dust Covers 

Computer Books 

R.S. Software 10% off list. 

Send for listing of 

brand name software. 


TOLL FREE 


1-800-343-8124 


com 


P.O. Box 1094 

480 King Street 
Littleton, MA 01460 
617-486-3193 
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Write for your 
free catalog 
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Sugarplums 


And 


Shakeouts: 
The Current State 





ere we are, waiting for 1983 to 
Hs» 1984, and, as is pro- 

bably appropriate, there are 
some thoughts at this end as the old year 
begins to take shape toward the new. 

Truth be it known, I really dislike 
people who somehow have the oppor- 
tunity to write such things as editor's 
columns, pontificating about issues of 
all sorts. The truth of the matter is that 
we usually know less about the subject 
than most of you. And Lam sure that, by 
and large, this is the case here. Neverthe- 
less, 1 hope that some of what 1 have to 
say may give you a little insight as to 
what we here at PCM think about the 
“current state of the computer industry” 
(now there’s a mouthful). 

We have been “treated” to people say- 
ing for quite some time that a “sha- 
keout” is due in the microcomputer 
world. We've essentially agreed with 
that, simply because there are too many 
machines out there, and too many poor 
ones, for the market to continue to sup- 
port them all. When someone buys a 
microcomputer for $1,700 out of the 
box that I know won't do what a $399 
computer will, it just stands to reason 
that a shakeout is coming. 

Yet, there were lots of heads being 
scratched when Osborne admitted it 
was in trouble some months ago. 
Osborne, the darling of the protable 
computer world! Yet, for all practical 
purposes, Osborne showed no growth, 
no improvement, and no permanent 
reduction in price (that should have 
been very possible) from the time it first 
caught on until the bad news went forth. 

Closer to home, similar announce- 


ments have come from the Atari and 
Texas Instruments camps. If you want 
to analyze all of this, it is pretty easy to 
see that the machines were unrealisti- 
cally priced (even when discounted) and 
short on features. And now, even from 
that bastion of computerdom, Cupper- 
tino, Calif., we hear things may not be 
well. After all, the Apple III was a disas- 
ter, LISA is not catching on and (to be 
honest) even Commodore has pretty 
well passed Apple by. If there's a sha- 
keout, the Apple may not fall too far 
from the tree. 

Let's if we may, contrast all this a 
moment to the news that greeted me (as 
a Tandy stockholder) in a very attrac- 
tive annual report that landed on my 
desk a few weeks ago. (You'll be pleased 
to know that Tandy's annual report 
cover was a reproduction of the Porta- 
ble Computer, embossed and in full 
color). In contrast to its competition, 
Tandy reported a substantial 24 percent 
increase in earnings for the fiscal year. 
We understand a great deal of that was 
due to computer sales. 

What does this all mean, aside from 
the fact that the people who work in 
Tandy Center certainly know what 
they're doing? What I think it means is 
two things, both of them very important 
to you as an owner of a TRS-80 Porta- 
ble Computer. 

First of all, it means that your compu- 
ter system is going to be here to stay. 
That's certainly good news. It is, because 
it means increased support from the 
manufacturer (Radio Shack), ability to 
get repairs made and availability of 


more things that will work with your 
Model 100. I realize that you can easily 
buy a TI Home Computer for less than 
$50. But what happens 60 days from 
now when the thing goes on the blink? I 
mean, they won't be making that com- 
puter any more. 

Second of all, it means that you can 
count on increasing support from out- 
side vendors for products that will fur- 
ther enhance your Portable Computer. 
Over the next six months,how many 
people do you suppose will be introduc- 
ing new products for the Osborne? Not 
too many. Yet, with a growing (and 
profitable) system like the PoCo, I sus- 
pect you will see more and more firms 
offering more and more things in this 
marketplace. 

All of that simply bodes well for you 
and for your Portable Computer. And 
what it means is simply that even if you 
don't have money invested in Tandy 
Corp., you profit by the good manage- 
ment the company enjoys. It is a nice 
thought for a new year. 

Another trend that we see for the 
future is more and more of what is being 
called “bundled” software. And, to 
some degree, we see it as a mixed 
blessing. 

Remember, your Portable Computer 
came with a “word processor," a couple 
of "database managers," and a "termi- 
nal program." I don't want to knock 
these programs, which are good as far as 
they go, but I do think that it is impor- 
tant to make some comments on the 
idea of “bundling” software with a com- 
puter. 

(LPRINT continued on Page 37) 
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MORE FROM MIKE 


Editor: 

| just received my October issue of PCM. 
Before I disappear for the evening behind its 
covers, let me say how much I appreciate to 
see the incorporation of many of the points I 
have recently written about — regarding ear- 
lier issues namely: 

I) A professional, business-like cover; 

2) Use of “M-100” instead of that general- 
ized (and childish) “PoCo;” 

3) BASIC Bytes — for starters; and 

4) Less games and frivolities. 

You are doing a great job of developing 
further use and understanding of the M100 

and as you seem to listen so well, 1 have a 
few more suggestions! 

Monthly cover photos could each repres- 
ent new, serious uses of the M 100; for exam- 
ples, aviation, architecture, engineering, hos- 
pitals, shipping, etc. 

When you print a program such as on 
Page 34 — could you devise a code such as å 
small [8], to indicate how many spaces are 
required before entering text after quotation 
marks? It would save so much time (and 
errors) trying to count spaces to make a 
good screen or printer layout. Rainbow pro- 
grams for CoCo should use the same code. 
For the print FORMAT program, Lines 30 
to 80 would read: 30 [4]: 40 [9]: 50 [12]: 60 
[12]: 70 [12]: 80 [12]. Try to count your 


spaces without any “stars” on Line 20! Keepa 
regular page or two of “Letters”—each with 
Editors or ‘expert’ comment . . we learn a 
lot from each other like this. Thanks again. 
Keep expanding the “Reviews.” Regards. 
Mike Walters 

Tracy, P.Q., Canada 


INFORMATION PLEASE 


Editor: 

The LPRINT section of PCM asked for 
comments about subscriber’s interests. My 
principal use of the 100 is as a communica- 
tion tool and word processing. I have not yet 
been able to work past all the “bugs” or my 
inept use of the 100, but 1 have no question 
of its ultimate usefulness to me. The points 
on which I would like information are: 

1) I have had three lock ups that were so 
serious that I had to revert to a cold start in 
order to use it again. The third lock up was 
not released by a cold start, it was partially 
released by a(CTRL/ PAUSE) and holding 
RESET. Even after this drastic step, the 
internal modem would not connect to an- 
other computer. 1 returned the 100 on war- 
ranty and by the time they returned it, it had 
corrected itself. 

2) I want to get a better word processing 
capability than the 100 offers. It is remarka- 
bly similar to the Color Scripsit in function. 
I have a CoCo and use the Nelson Super 
Color Writer as a word processor. This pro- 
gram runs circles around anything that RS 
has provided. 1 would like to have a similar 
program in the 100. If I could, effectively, 
interconnect the CoCo and the 100, it would 
be tremendously helpful. 

3) My concern about the word processor 
carries over to control of the printer. | havea 
RS Line Printer VIII, but the only control 
that the 100 exerts over this printer is the 
length of the lines. Again, a program with 
the capabilities of the Super Color Writer 
would be extremely valuable. 

This letter is being composed on a CoCo 
and printed on an RS Line Printer VIII. 1 


would like to be able to make a direct con- 
nection between the two, but so far I have 
been unable to achieve that. In fairness to 
RS, 1 must say that I have not been able to 
spend very much time on it, but at the same 
time, the amount of information provided is 
totally inadequate to achieve this connec- 
tion. I have had good success in accessing the 
office computer by telephone. 
Any information that PCM can provide 
on these subjects would be appreciated. 
David E. Schlegel 
Moraga, CA 


Editor's Note: 

The Businesspak+ by PCSC will 
solve your printer formatting prob- 
lems. To communicate between the 
CoCo and Model 100, all you need is 
software for the CoCo, such as Super 
Color Terminal and a cable described 
in PCM — August 1983 Page 9. 


BATTERY BUG 


Editor: 

First let me congratulate you on a wond- 
erful magazine; it is very informative. Sec- 
ondly, a comment about SAV Eing things on 
tape with the M100. When I first tried 
SAVEing a text file, | kept getting errors 
that 1 never had experienced before while 
working with my husband’s CoCo. After 
several frustrating hours working with M100 
and the manual, my husband suggested that 
I work with both the tape player and M100 
on batteries. 1 tried both on batteries all 
around and ta-daa!! it worked. The manual 
does not mention anything about this sit- 
uation coming up, so 1 thought that this 
information might be of use to all those 
M100 users out there. 

Also, congratulations on a great Rain- 
bovvfest in Forth Worth! As I mentioned, we 
do have a CoCo as well as my M100. Next 
question is when and where will the first 
M 100fest be? 

Kerri Arnold 
Dallas, Texas 


PORTABLE COMPUTER DESK TOP STAND 





Improves Viewing and Typing Angle 


Briefcase Portable 


Mail Check or Money Order to: DISKUS PRODUCTS 6003 Bandini Blvd., Los Angeles, CA 90040. VISA or M/C call 
(213) 726-3088 The POCO STAND $17.95 plus $2.00 each unit Shipping & Handling — CA residents add 6.5% sales tax. 
Patent Pending. € 1983 DISKUS PRODUCTS For RUSH Delivery add $2.00 extra — U.P.S. Blue Label 
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Ask your dealer for the Porta™ series 
from Skyline—to help you work faster and better! 


PortaCalc™ — Model 100 “electronic spreadsheet” with 14 column by 26 row workspace! 
Full use of the built-in function keys to save, load, screen print, report print, or to look 
behind the data at the formulas in use. Gaz 


Full arithmetic operators including exponentiation, absolute value, integer, summation, 
and averaging. Calculations are done to 14 digits of precision and displayed up to 9 
digits. User selectable decimal place from none through seven—not just one, two, or 
floating! Formula replication is included to allow fast creation of worksheets. 


Worksheets may be saved, loaded, or merged using the computer’s memory or 
cassette. Often used templates can be saved in memory for instant recall. 


Two powerful utility programs are included with PortaCalc at no extra 
charge! PortaDex"" is a data exchange program that allows reformatting 
PortaCalc files into the DIF format used by VisiCalc. PortaPrint™ is an 
enhancement to the Model 100’s text editor, adding the ability to adjust 
left, right, and top margins, and page length. Page numbering, headers, 
centered lines, flush right justification, new page control, and more. 


Comes with extensive documentation in padded 3-ring binder. Includes 
tutorial, detailed reference section, and executive level sample templates. 
Fully illustrated with screen prints, examples, and hints. 


PortaStat" — Correlation, regression analysis, and descriptive statistics 
package, designed to be a working tool for today's businessman. 

Data can be input from cassette, memory, or keyboard. Interactive with 
PortaCalc data files! Thoroughly documented, includes tutorial. 


PortaFin'" —Present value, net present value, future value, annuities, 
interest factors, loan constants, internal rate of return and more! This user- 
friendly package prompts you for the needed input data, then gives you 
the answer to your loan or investment problem! Interactive with PortaCalc 
files, allowing you to "read" cash flow data from memory. Keyboard or 
cassette input also available. 


PortaMax" — The powerful ‘simplex’ method of linear programming. Find 
the optimum 'mix' for a given set of constraints. Interacts with PortaCalc 
files to avoid time-wasting repetitive data entry. Tutorial, examples, and 
bibliography included. 

PortaFolio'" — Stock and bond valuation, betas, Macaulay's duration, yield 
to maturity, bond swap calculations, and much more. All in an easy to use 
program, interactive with PortaCalc data files. Supplied with comprehensive 
instructions and reference manual. 


PortaCalc 


All Porta series programs are supplied on cassette and require 24K RAM. 
Pricing — PortaCalc is $69.95, all others are $44.95 each. 

If ordering direct, add $2.00 shipping and handling per order. 

Dealer inquires invited. 








4510 W. Irving Park Rd. * Chicago, IL 60641 * (312) 286-0762 








Basic Bytes 








Program 
Control 


By Richard A. White 
PCM Contributing Editor 





rogram control is nothing more 
Pi: decision making and then 

taking appropriate actions after 
the decision. To make a decision, the 
program must make some sort of test. 
The result of any single test a computer 
makes is either a true or a false answer. 
Remember, it’s a binary beast even 
when talking BASIC. If you had only 
IF/ THEN in your BASIC you still could 
write any program you wanted. Other 
controlstatements like FOR/ TO/ NEXT, 
ELSE, ON/GOSUB and ON/GOTO 
provide for simplicity, speed and effi- 
cient use of memory. In this article, we 
will compare them and suggest ways to 
use them that you may not have thought 
about. 

IF A=B THEN 100. This is perhaps 
the simplest of statements—it means 
just about what it says. IF A=B GOTO 
100 is also acceptable BASIC and means 
the same thing. The 100 refers to Line 
100 in either case. If A does not equal B 
then go to a subroutine, then write IF 
A-B THEN GOSUB 1000 works also 
but why keep the unneeded THEN 
around to take up memory space. 

Any group of statements and func- 
tions may follow a THEN. For exam- 
ple, IF A=B THEN CLS: PRINT ASA 
: SOUND 100,10 : GOTO 100. For the 
actions following the THEN to take 
place it must be TRUE that A=B. When 





Dick White has been programming in 
BASIC for over three years, and has a 
number of programs on the market for 
the Color Computer. He is also a col- 
umnist for the Rainbow, PCM s sister 
publication, and is a member of CIN- 
TUG, the Cincinnati TRS-80 Users” 
Group 


it is FALSE that A=B, you will want 
some other action. VVith ELSE, this 
action can be placed in the same line of 
code. In most cases this leads to pro- 
gram clarity and simplicity. Our exam- 
ple is IF A=B THEN CLS: PRINT A$ 
A: SOUND 100,10: GOTO 100 ELSE 
CLS: PRINT “NOT EQUAL”: SOUND 
50,10. Note that colons are NOT used 
on either side of THEN and ELSE. If 
you want to waste memory you can put 
them in—they will do nothing else for 
you. The ability that ELSE gives you to 
choose one piece of code or another is 
extremely powerful. Without ELSE you 
would be reduced to using IF/ THEN 
mainly to route the program to lines 
where the needed code would be placed 
rather than executing the code directly. 
This of necessity would locate the code 
remote from the text calling it. Program 
clarity is significantly reduced, speed is 
reduced and memory usage is increased. 
Instances when you will want to branch 
to remote lines are when you are going 
to major program routines or are going 
to subroutines used by other portions of 
your program. 

IF/ THENs can be nested, that is one 
following another in the same line with 
or without intervening code. Following 
are some lines to help show the relation- 
ships of the keywords to one another. 


IF (Test 1) THEN (if Test 1 is true) 
IF (Test 2) THEN (if Test 2 is true 
ACTION A) 

ELSE (if Test 2 is false ACTION 
B) 
ELSE (if Test 1 is false ACTION C). 


The second İF is inset under the first 
THEN that it follows. Each ELSE is 
placed under the IF that refers to it. An 
ELSE will be related to the closest IF 


that does not have an ELSE. If the 
ELSE under the second IF were removed, 
then the remaining ELSE would auto- 
matically be associated with that IF 
even though it is followed by code relat- 
ing to the first IF. If you had no 
ACTION B in the event that Test 2 is 
False, put the ELSE in anyway so that 
ACTION C will occur when Test | is 
false. 

IF (Test 1) THEN (if Test 1 is true) 
IF (Test 2) THEN (if Test 2 is true 
ACTION A) 

ELSE 
ELSE (if Test 1 is false ACTION C). 


You can test for many things after an 
IF. These include A less than B(A € B), 
A less than or equal B(A <= B), A not 
equal B(A <> B), A greater than B(A 
> B), or A greater than or equal B (A >= 
B). Of course, both sides need not be 
variables. A > 0, or B = 5 are quite 
acceptable. You can do the same tests 
on strings like A$ = “GOLIATH” or A$ 
> "DAVID". Let's assume that A$ = 
“GOLIATH”. You might agree that A$ 
>“DAVID” is TRUE since GOLIATH 
is a somewhat larger man than DAVID. 
Others might point out that David 
killed Goliath and in that sense A$ > 
“DAVID” is FALSE. Your Model 100 
could care less about this hogwash and 
looks only at the ASCII values for “G” 
and “D.” In ASCII terms, “D” is 68, “G” 
is 71, 71 is bigger than 68. The matter is 
settled right there and “GOLIATH” is 
greater than “DAVID.” If PoCo had to 
choose between “GOLIATH” and 
“GRASS,” it would go on to the second 
letter to find a separation. 

Up to now things have been straight- 
forward in that one test was made and 
one or another action taken depending 
on whether that test proved true or 
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false. Real life, even in a computer, is 
that a number of conditions need be met 
for some action to take place. IF I can 
find $1000 AND convince my wife that 
it is necessary, THEN I will buy a 
MODEL 100. Well, those who wrote 
our BASIC saw to it that we would have 
ways to make decisions based on a 
number of test. We have already dis- 
cussed one way. IF (Test 1) THEN IF 
(Test 2) THEN (Action). Alternately, 
this can be written IF (Test 1) AND 
(Test 2) THEN (Action). In BASIC this 
might be IF A= BAND A$>“DAVID” 
THEN PRINT “SUBSCRIBE TO PCM 
Magazine”. To muddy the waters more, 
even this will work: IF A= BAND A$ > 
“DAVID” OR C > 28 THEN PRINT 
“SUBSCRIBE TO PCM Magazine”. 
See the OR? If C were the contents of 
your bank account and it were greater 
than $28 then the message “SUBSCRIBE 
TO PCM Magazine” would be printed 
irrespective of whether A = B or GOLI- 
ATH is greater than DAVID. Tests can 
be strung together with AND and OR in 
almost any conceivable way, which makes 
them powerful tools in the programmer’s 
bag of tricks. 





As noted, IF/ THEN/ ELSE can do 
all program control. So why use FOR/ 
TO/ NEXT? It’s easier. All you and the 
program need to know about the loop 
are right up there in the line heading up 
the loop. FOR/TO/NEXT is faster 
since BASIC knows up front what you 
want and can use the most efficient 
machine language coding to get it donc. 
In the IF/ THEN approach above, the 
BASIC interperter never knows it is doing 
loops. Here is the basic syntax of 
FOR / TO/ STEP/ NEXT. 


FOR (variable & initial value) TO 
(limit value) STEP (value) 


NEXT 


The initial value, limit value and step 
value may be positive, negative, integer 
or decimal. Looping continues as long 
as the variable remains less than (or 
more than) the limit value. Any of the 
following are valid. 


FOR €” I TO IO... NEXT 
FOR C = 132.769 TO 133.543 STEP 


Plot Against Your Competition! 
with QuickPlot® 








.008... NEXT 
FOR C= 1000 TO -732 STEP -200... 


NEXT 

FOR C = -1 TO -10 STEP -1... 
NEXT 

FOR C “ IEI TO 1E35 STEPOEIO... 
NEXT 


FOR C -0 TO0...NEXT 


VVithout STEP, BASIC assumed an 
increment of +1, which is a very typical 
case. Othervvise there is nothing special 
about STEPing. Just make sure you 
STEP in the right direction to get from 
the initial value to the limit one. No 
matter what the values assigned, a FOR/ 
TO/ NEXT loop is always executed at 
least once. It is necessary for the pro- 
gram to get to NEXT before any test is 
made. In some listings, you will see the 
variable name after NEXT like NEXT 
C. No you don’t see it above. The com- 
puter knows full well which variable it is 
dealing with and doesn’t need the pro- 
grammer telling it. From a program- 
ming clarity viewpoint a case can be 
made for documenting the NEXT with 
its associated variable. And some peo- 
ple feel strongly that good program- 
ming structure requires that variables 
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be associated with NEXTs if some let- 
ters to editors are to be believed. 1 feel 
that if your other programming practi- 
ces are sound, variables after NEXTs 
are a pain and waste of bytes. 

BASIC stores the location of the start 
of the FOR/TO/NEXT loop on the 
microprocessor's stack in memory. When 
the program exits normally, these mem- 
ory locations are cleared for other uses. 
When a FOR/TO/NEXT loop is ab- 
normally exited, these memory loca- 
tions are not cleared. There are occa- 
sions when early departure from a loop 
is needed. There are a number or ways 
to do this. When this is done, there 
should be code to set the count variable 
to a number equal or higher than the 
limit value and follow this witha NEXT 
in order to clear the stack. Here is an 
example. 


100 FOR € =0 TOX: IF zé 
THENC-X: NEXT: GOTO 200 

110” CODE IN THE LOOP 

120 NEXT 

130 ” CODE FOLLOWING THE 
LOOP 


There are times when it is not desira- 
ble to go through the loop even once. In 
our BASIC you must test the governing 
condition and jump around the FOR/- 
TO/NEXT code or abandon FOR/- 
TO/ NEXT writing your own loop con- 
trol with IF/ THEN. Here is one ap- 
proach, 


100 A= I 
105 IF A > X GOTO 150 
110 "LOOP CODE 


140 A=A+1:GOTO 105 


One reason to need to do this would 
be if you were taking a series of strings 
apart, perhaps for printing fields of 
records. If the user had put no data in 
yet and X = 0, but made the mistake of 
trying to print, a SN Error would greet 
their efforts as soon as the program 
tried to take an empty string apart. 
Now, no programmer wants a user to be 
greeted with an SN Error—ever. So 
constructions like the above are neces- 
sary now and then. Some languages and 
dialects provide alternate statements 
like DO/ UNTIL that test first and then 
act. What is most important is to know 
what the characteristics of your lan- 
guage are and use them to best advan- 
tage. The grass may look greener over 


the PASCAL fence. That does not 
mean its better grass. And while we are 
at it, you should be aware that the same 
keywords may act differently in another 
language. IF/ THEN/ ELSE seems to be 
one of the few constants. 

Two other program control statements 
in Model 100 BASIC are ON Z GOSUB 
and ON Z GOTO. Z is a number start- 
ing with | which tells the computer to 
count to a specific line number listed 
after the GOSUB or GOTO and go to 
that line. Here is some code from an 
editor program for an example of a 
super use of ON/ GOSUB. 


60 INPUT C$ 

80 B=INSTR(I, *NnliTtDdFfEeXx 
RrLIPpGgCcUu2Kk A”,C$) 

90 ON B GOSUB 370, 370, 410, 410, 
450, 450, 460, 460, 470, 470, 540, 
540, 620, 620, 640, 640, 650, 650, 
720, 720, 780, 780, 870, 870, 1140, 
1140, 1160, 1200, 1200, 1300, 225 

215 IFC$-“M”ORC$-“m”THENK$z 
TXS(CL):GOSU B620 
220 RETURN 


This code does the same thing as a 
series of IF/THEN lines like we dis- 
cussed before, but does it in one third 
the time. Further, it uses half the num- 
ber of bytes that a series of IF/ THEN 
statements does. The INSTR statement 
in Line 80 hunts through the string of 
characters tryingto find a match for the 
character in C$. If it finds a match, the 
test is successful and it puts the count up 
the string in B. In ON B GOSUB, the 
computer counts up line numbers to the 
number in B and makes a subroutine 
call to that line number. Obviously the 
INSTR-ON B .. . technique is quite 
effective here. If you only had three or 
four characters or values to test, IF/ 
THEN would be preferred. 

The five interrupt definition commands 
are variations of ON/ GOSUB and ON/ 
GOTO. Unfortunately, you don't have 
a choice of GOTO or GOSUB, but must 
use the form associated with the particu- 
lar interrupt. For example, ON KEY 
GOSUB...calls a numbered subrou- 
tine depending on which key is pressed. 
You need enable only those keys you 
wish to use. At first glance this would 
seem great to use for making menu cho- 
ices. When you want to choose one pro- 
gram function or another and can con- 
veniently put the code modules up as 
subroutines, this is the best way to go. 
However, if you want to use the func- 
tion keys to enter choices within a 
module, you may have troubles. 


Here is a neat little cul-de-sac you 
might get into. Your program is sent off 
to an input module using a function key. 
You would like to have one of the func- 
tion keys defined as a return to send the 
program back from the subroutine. You 
cannot use ON KEY GOSUB to send 
the program to a line with a RETURN 
since the RETURN will send you right 
back to the place where you were when 
the function key was pressed. So, why 
not send the program to the start-of- 
menu line and forget abouta RETURN. 
You could do this using the GOSUB 
like a GOTO for a while. After a 
GOSUB call, how does the computer 
know where to return? It stored where it 
was in the program in a RAM area 
called the stack before it went to the 
subroutine. If you do not usea RETURN, 
the return address stays on the stack. If 
you use a bunch of GOSUBs without 
RETURNS, return addresses keep build- 
ing up in the stack. The only way to 
clear the stack is to use a RETURN. 
Taken to the extreme, the program will 
run out of memory and crash. 

I have not found a way out of this 
box. For now, ON KEY GOSUB must 
be used for subroutine calls only where 
you want to return to the line where you 
were when the function key was pressed. 
Here is a sample of code. 


1000 CLS: ON KEY GOSUB 100, 
200, 300, 400,,,800 

1005 KEY (1) ON: KEY (2) ON: KEY 
(3) ON: KEY (4)ON: KEY (7) 
ON 

1010 PRINT@0,“MENU CHOICES...” 

1020 GOTO 1010 


Line 1000 defines which subroutines 
refer to which function keys. Note that 
keys one through four have lines to go 
to, five and six don’t so they are unde- 
fined. Key seven is defined while key 
eight is not. In Line 1005, these keys are 
turned on. Keys and other interrupts are 
turned off when a BASIC program is run. 
KEY ON turns all keys on while KEY 
OFF turns them all off. Line 1010 prints 
the numbered choices to the screen ina 
format of your choice. The program 
then loops, continually printing the menu 
until an active function key is pressed. 
This sends it to the subroutine starting 
at the listed line number. When the sub- 
routine’s work is completed, use a CLS: 
RETURN toclear the screen and return 
the program into the menu loop. 

The MDM, modem and TIMES inter- 
rupts work in the same way except the 
source of the interrupt is either data 
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received over the modem or the compu- 
ter clock equalling a time set in a string. 
What might these be good for? Why not 
an alarm clock program? Here is how 
you could write the program in conven- 
tional BASIC, ie without the interrupt. 


10 CLS: PRINT@0,TIME$ 

20 PRINT”ENTER WAKEUP TIME 
IN FORM 06:30:00: INPUT 
WAKEUP$ 

30 CLS: POWER CONT 

40 PRINT@ 0,TIMES: IF TIMES 
=WAKEUP$ THEN 50 ELSE 40 

50 POWER 100 

60 PRINT(20, TIMES: SOUND 
9394,20: SOUND 4697,20: GO 

TO60 


The screen is cleared, current time 
printed and then the program asks for 
the wakeup time. Note this must be in 
the format specified. In Line 30 we give 
a POWER CONT to keep the computer 
from automatically turning off. If you 
do use this as an alarm, you had better 
be running PoCo off your adapter. Line 
40 turns PoCo into a clock, continu- 
ously updating the time and checking to 
see if the time equals the wakeup time 


entered. When a match is obtained, the 
program goes to Line 50 to reset the 
POWER off delay and then to Line 60 
to sound the alarm. The user uses the 
pause/ break key to stop the alarm. 

Below is the same program using the 
TIMES interrupt. The IF/ THEN/ ELSE 
statement in Line 40 has been replaced 
by the ON TIMES... GOSUB and 
TIMES ON in Line 30. The program 
loops in Line 40 until TIMES-WAKE- 
UPS and then goes to the subroutine 
starting in Line 50. 

The only real difference is that the 
interrupt is active while the program is 
off in other lines of the program. It's an 
always-there IF/ THEN. 


10 CLS: PRINT@0,TIME$ 

20 PRINT”ENTER WAKEUP TIME 
IN FORM 06:30:00: INPUT 
VVAKEUP$ 

30 CLS:POVVER CONT: ON TIME 
$=WAKEUP$ GOSUB 50: 
TIMES ON 

40 PRINT@0,TIME$: GOTO40 

50 POWER 100 

60 PRINT@0,TIME$: SOUND 
9394.20: SOUND 4697,20: 
GOTO60 


I will not go into the ON MDM/ 
GOSUB routine other than to suggest 
that someone write a two-computer 
game where the computers are continu- 
ally updating each other over the phone. 
Everything you need is there in PoCo 
BASIC. Likewise, | will pass for now on 
ON ERROR GOTO. This is over long 
already. 

To summarize, program control is 
accomplished with statements that per- 
form one or more tests and take actions 
based on whether true of false results 
are obtained for each test. What action 
takes place depends on how the pro- 
grammer writes the statements. The 
control tools in Model 100 BASIC are 
IF/THEN/ ELSE, FOR/TO/STEP/ 
NEXT, ON GOTO and ON GOSUB 
and the interrupt routines. IF/ THEN 
| ELSE is extremely powerful and could 
be used alone without seriously limiting 
one's ability to write complex programs. 
The other statements provide for pro- 
gram clarity, speed and economy of 
memory. Each has its place, so serious 
programmers learn to use each to best 
advantage through in-depth understand- 


ing of each. Han 


ARR 
HIE RE All 


IF YOU CAN READ THIS... 
YOU CAN WIN A BAR CODE READER. 


If you don't own a Bar Code Reader call our TOLL FREE number 800-645-1165 
and we'll send you a decoding sheet and bar code information 


Follow the next issues of PCM for clue #2 and #3 


10 winners will be chosen from all entries received 
But remember you must have all 3 clues to be eligible 


Call our TOLL FREE number 800-645-1165 


for your entry blank 


: B.T. Enterprises Dept. 19L 


10 Carlough Road 


Bohemia, N.Y. 11716-2996 


B.T. Enterprises is a division of Bi-Tech Enterprises Inc. 


Dealer inquires Welcome 
Prices subject to change 
N.Y.S. Residents add tax 





Orders Only 
800-645-1165 


(516) 567-8155 (voice) (516) 588-5836 (modem) 


e 
o 

(e 

pa eade — 


R ax 


cd 


American Express, Carte Blanche, 
Diners Club, MasterCard & Visa 


December 1983 PCM 11 


Take Stock 


By Robert Frowenfeld 
PCM Contributing Editor 


ell, it’s that time of year 
again—December. And while 
most of us spend the month of 


December wondering what Santa is 
going to drop down our chimney, there 
are lots of folks out there in PCM land 
that look at the end of the year as the 
beginning of getting their paperwork in 
order for the Tax Man. If you engage in 
the ups and downs of Wall Street, you 
are inevitably bombarded with a deluge 
of transaction slips from your various 
buy and sell orders. Moreover, keeping 
track of which stocks you own or have 
bought or sold during the course of the 
year can sometimes be an onerous task 
indeed, and although April 15 is a long 
way off, there’s no better time than the 
present to get our capital gains (and 
losses) in order. Our On The Road pro- 
gram this month will let you keep track 
of all your stock purchases and sales 
and, at the same time, keep a permanent 
record of your stock portfolio. 

The name 1 have given to this pro- 
gram is PORT.BA, which is short for 
PORTfolio. I like it because it simplifies 
my record keeping while it lets me keep 
track of my investments whenever I’m 
out of town. But where it really shines is 
when it comes time to analyze my prof- 
its and (alas!) losses at the end of the 
year. 

So let’s get started! When you run 
PORT, the main menu lists the various 
functions available (see Figure 1). These 
functions permit you to: enter a stock 
transaction, display your trading activ- 
ity in a particular security, and display 
your current position for any one, or all 
stocks in your portfolio. 
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The first function, Enter Transaction, 
is the key to this program. By maintain- 
ing a database of all stock purchases 
and sales, your portable companion can 
instantly provide you with the informa- 
tion you need about your investments. 
Incidentally, PORT uses a data file 
named “PORT.DO” to maintain all 
your stock trades. By using a document 
file, you can (if you so desire) edit this 
file by using the TEXT program sup- 
plied with your Model 100. Therefore, if 
you should ever discover that you have 
made an error in a transaction entry, 
making the necessary corrections should 
be a simple matter. 

Referring to Figure 2, we see that 
PORT maintains the following infor- 
mation for each security's trade: date, 
stock ID, number of shares traded, 
price per share, whether the trade is a 
buy or sell transaction, and the broker- 
age commission incurred. Figure 3 
shows how your screen would look for a 
purchase of 200 shares of Tandy Corpo- 
ration stock at a price of 35!^ and a 
commission of $50; note the Stock ID 
symbol is TAN—this is the New York 
Stock Exchange symbol for Tandy 
Corporation. When telling your Model 
100 that the trade is a purchase, you 
must respond with a *B" for buy or, for 
a sale, and "S." Also, you must be sure 
to enter the Stock ID in uppercase, or 
PORT will not accept it as valid data. 

Once you have completed the trans- 
action input, you are prompted to acknow- 
ledge that this is a correct entry. Review 
your typed input, and if it is not correct, 
enter an “N” and PORT will allow you 
to start over. If everything is okay, type 





a "Y" and the transaction will be re- 
corded. Keeping track of the trade date 
is very important because when it comes 
time to sell your stock, you will have to 
know whether the gain (or loss) is long 
term or short term. For those of you 
who aren't aware of this significance, a 
short explanation is in order. 

As you know, a capital gain becomes 
long term if held a year and a day. The 
end of the year can provide some 
money-making opportunities if you are 
trying to minimize your tax liability. 
Therefore, knowing which stocks you 
own (and when you purchased them) is 
an absolute necessity. For example, if 
you have already made some money this 
year in the stock market and you want 
to reduce your income taxes, the smart 
play is to sell a security that you own 
that has lost money, preferably one that 
you have held less than a year. By utiliz- 
ing the second function of PORT (as 
we'll see in a moment), we can easily 
keep track of the purchase (and sale 
dates) of any security. 

After the entry of a transaction, 
PORT will clear the screen and make 
itself ready for another entry. If there 
are no more entries to be made, simply 
press the "FI" function key in the 
extreme upper-left of your keyboard— 
that will return you to the main menu. 

The second function of PORT, Indi- 
vidual Stock Activity, allows you to 
display all activity for a particular stock. 
As with the Enter Transaction function, 
you must enter the stock symbol in 
uppercase. Figure 4 is a display of a 
sample PORT.DO data file. Let's say 
we wanted a complete listing of all trans- 


actions for IBM. After typing in the stock symbol IBM, 
PORT asks if the information is to be sent to an attached 
printer. If we were to respond with an “N,” then the output is 
sent only to the display, conveniently pausing every five 
entries so we can review the activity. Each line of output lists 


Figure 1 
Stock Portfolio Manager 
1 Enter Transaction 
2 Individual Stock Activity 
3 Open Position 
4 End Program 
Fi 
za Enter Transaction 
Date : Buy / Sell: 
Stock ID : Commission: 
Shares i 
Price/Shr : 
Press Fi to Exit 
Figure 3 Enter Transaction 
Date : 10/31/83 Buy / Sell: B 
Stock ID : TAN Comnission:50.00 
Shares : 200 
Price/Shr : 35,5 
Entry Correct (Y/N): 
Figure 4 Listing of file “PORT.DO” 


"1/5/83" ,"B","IBM", 100 95.75 25 
"3/18/83","B","TAN", 200 45 32.5 
"3/29/83","B","LIL", 300 15.875 56.75 


"4/15/83","B","IBM", 100 185.5 37 
"5/25/83","5", "IBM", 100 110.25 25 
"6/13/83","B","T", 200 62.75 42.65 
"8/24/83","S","DEC", 400 105 153.80 
"10/31/83","B","TAN", 200 35.5 50 


Figure 5 Stock: IBM 


Date Buy/Sell Shares $/Share Comm. 
6"1/5/83 Bought 100.00 95.750 25.00 
4/15/83 Bought 180.00 105.520 
5/25/83 Sold 1800.00 110.250 25.00 


Total: 3 Transactions 
100 Shares LONG 


Figure 6 
Stock Shares Pos. Stock Shares Pos. 
IBM 100 Long TAN 400 Long 
EIL 300 Long T 200 Long 
DEC 400 Short 


the trade date, whether the trade was a purchase or a sale, 
the number of shares bought (or sold), the price per share, 
and the commission. If “Y” is entered in response to the 
printer query, then the output also goes to the printer with- 
out pausing (see Figure 5). At the end of the listing (whether 
printed output is requested or not), PORT lets us know the 
total number of transactions in the database and if the 
position is long or short. When you own a stock, you have a 
long position. If you think a stock is going to go down, then 
you might sell the stock without actually owning it, hoping 
to buy it back later at a lower price. In that instance, you 
have a short position in the stock. 

Once the listing of the transations is completed, you are 
requested to enter another stock symbol. Here, as before, 
pressing the “FI” key will return you to the main menu. 

The last function of PORT allows you to instantly find 
your open position (long or short) fora particular stock. As 
with the Individual Stock Activity function, this one 
requires only that you type in the stock symbol. PORT then 
quickly looks at all your transactions and determines how 
many shares of stock you own (or are short). A real handy 
feature of this function is the ability to display (or list) the 
position of a// securities on file. When prompted to enter the 
stock symbol, a response of an asterisk (*) will cause all 
security positions to be displayed. Additionally, there is an 
option to send the output to the printer (see Figure 6). If no 
printed output is desired, then PORT will again convenien- 
tly pause after the screen is filled so you can review the 
information. 

Well, there you have it, a nice little Christmas (or Hanuk- 
kah) present forall you Wall Street money moguls. May the 
new year bring you the bullish profits that only your Porta- 
ble Computer can record! 


ey The Handicapper "yy 


Use the povver and portability of your Model 100 to 
improve your performance at the track—and vve mean 
at the trackl The Handicapper comes vvith separate 
programs for thoroughbred and harness tracks that 
apply sound handicapping techniques to produce 
rankings for the horses in each race. Use information 
readily available in the Racing Form or harness track 
program. Factors include speed, distance, track condi- 
tion, post position, past performance, jockey or driv- 
er's record and other attributes. Use it at home the 
night before or tote it with you to the track and hand- 
icap between races! Handicap an entire race in a few 
minutes and a whole card in less than an hour! List 
rankings to screen or printer. 24K version even builds a 
RAM file for the entire card! Includes harness and thor- 
oughbred programs, complete documentation and 
betting guide. State memory requirement when 
ordering. Only $49.95. 


Federal Hill Software 
825 William St. 
Baltimore, Md. 21230 
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The listing: 

I CLEAR 1000:DEFINT I-N:DEFSTR A,R,U 

2 BL$-STRIN6$ (38,” ") 

5 ES$=CHR$(27):R=ES$+"p":U=ES$+"Q": GOTO 
gə 

6 LINEINPUT IN$:XsVAL(INS):IF IN$<>"" TH 
EN YzASC (1N$) :RETURN ELSE RETURN 

35 DIM A(1ØØ) ,X(1ØØ) 

40 FI$="PORT.DO" 

50 DATA"Enter Transaction","Individual S 
tock Activity","Open Position","End Prog 
ram" 

Si FOR I=1 TO 4:READ MØS(I):NEXT I 

60 KEY 1," "*CHR$(13) 

70 Hi$=" Date Buy/Sell Shares $/Shar 
e Comm. 

71 G1$="V N- S 
# 9.99 

72 H2$="Stock Shares Pos. 
73 G2$="\ \ xüs" 


VARTER LAR HR ud 


100 CLS:PRINT@9,"Stock Portfolio Manager 


105 CLOSE 

110 FOR Isi TÜ 4:PRINT@45+1*40,R313;U" "M 
Ø$ (I); NEXT I 

115 PRINTE289, "Select: ", 

120 A=INPUT$(1):FX=VAL(A)IIF FX<1 OR FX? 
4 THEN 120 

130 ON FX GOTO 1000 ,2000 ,5000,4000 

200 CLS:J=LEN(MØS(FX) ) sPRINTTAB(20-J/2); 
MØS (FX) : RETURN 

300 OPEN FI$ FOR INPUT AS 1:RETURN 

400 PRINTEZ29Ø, "Press "R" F1 "U" to Exit" 
s RETURN 

500 PRINT 

510 PRINTE286, "Press any key to continue 
: "sr A=INPUTS$(1) : RETURN 

600 ‘heading 

610 CLS: PRINTH2$;H2$; : PRINT840,H3$; H3$1P 
RINTG80,""::1F PR$z"Y" THEN LPRINT H2$;H 
2$1LPRINT H3$;H3$ 

620 RETURN 

700 'all stocks 

703 PR$="N":PRINTE2Ø8, "Send to printer ( 
Y/N): "ss A=INPUT$(1):PRINT@200,BL$;:1F A 
="N" OR A="n"THEN 705 ELSE IF A="Y" OR A 
="y" THEN 704 ELSE 783 

704 PR$z"Y" 

705 IX=Ø 

710 IF EOF(1) THEN 770 

720 INPUTS1,DT$,BS$,ID$,5H,PR,CM 

730 IF IX=@ THEN 745 

740 FOR I=1 TÜ IX:IF A(I)=ID$ THEN J=1:G 
OTO 755 ELSE NEXT I 

745 IX=IX+1 

750 A(IX)=I1D$:J=IX 

758 IF BS$="B" THEN X(J)=X(J)+SH ELSE Xí 
J)zX(J)-8H 
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768 GOTO 710 

770 GOSUB 600 

788 FOR I=1 TO IX STEP 2:PRINT USING 62$ 
ACID ŞABS(X(1))ş:1F PR$z"Y" THEN LPRINT 

USING 62$;A(I) 5ABS(X CI) 1 

782 A="None": IF X(1)€0 THEN A="Short" EL 

SE IF X(I)>@ THEN A="Long" 

785 PRINT USING" \ N"ŞAŞ PRİNT TAB(2Ø 

):: IF PR$="Y" THEN LPRINT USING" \ SP 
sAs 1 LPRINT TAB(20); 

790 IF I=IX THEN 798 

792 PRINT USING 62$;A(I*1) ;jABS(XCI*1)) j1 

IF PR$z"Y" THEN LPRINT USING 62$;A(I*1); 

ABS(X(I+1))3 

793 Az"None":1F X(I+1)<Ø THEN As"Short" 

ELSE IF X{I+1)>@ THEN A-"Long" 

794 PRINT" "As IF PR$="Y" THEN LPRINT" "A 

795 IF INT((I+1)/8)*8=1+1 AND I+1<IX AND 
PR$<>"Y" THEN GOSUB 500:605UB 500 

797 NEXT I 

798 IF PR$="Y" THEN LPRINT CHR$(12) 

799 GOSUB 500:60T0 100 

İ000 “enter transaction 

1005 CLOSE:OPEN FI$ FOR APPEND AS 1 

1010 GOSUB 200 

1020 PRINT€O80, "Date 
/ Sells"; 

1030 PRINTé120,"Stock ID :"; 

1035 PRINT@142,"Commission:"; 

1040 PRINT€160, "Shares 1"4 

1050 PRINT@200,"Price/Shr :"; 

1050 GOSUB 400 

1100 PRINT@92,""3:GOSUB 6:IF Yz32 THEN 1 

00 ELSE IF LEN(IN$)<& THEN 1100 ELSE DT$ 

=IN$:PRINT@288, BLS; 

1110 PRINT@114,""s;s INSZINPUTS(1):IF IN$= 
"" THEN 1110 ELSE YzASC(INS):IF Y=32 THE 

N 1110 ELSE IF 1N$€)3"B" AND IN$<>"b" AND 
IN$<>"S" AND IN$<>"s" THEN 1110 ELSE BS 

$zIN$ 

1115 IF IN$="b" THEN BS$="B" ELSE IF IN$ 

z"s" THEN BS$="5" 

1117 PRINT IN$; 

1120 PRINT@132,""3:GOSUB ö:1F Y€65 OR Y? 

90 THEN 1120 ELSE ID$=IN$ 

1130 PRINT8172,""::G808UB ö:1F X<@ THEN 1 
130 ELSE SHeX 

1140 PRINT@212,""3:GOSUB ö:1F X<@ THEN 1 
140 ELSE PReX 

1150 PRINT@153,""3:GOSUB 6:IF IN$="" THE 

N 1150 ELSE CM=X 

1160 PRINT@288,"Entry Correct (Y/N): "ş: 
INS=INPUT#(1):1F IN$="N" OR IN$="n" THEN 
1000 ELSE IF INS<>"Y" AND IN$<>"y" THEN 
1158 ELSE PRINT IN$; 

1170 PRINT#1,CHR#(34) DT$CHR$(34)", "CHR$( 

34) BS$CHR$ (34) ", "CHR$ (34) IDSCHR$ (34) ","S 

Hy FR; CM 

1180 GOTO 1000 

2000 “individual activity 


1"; TAB(22) "Buy 


2010 GOSUB 200:605UB 300: 605UB 400 

2020 PRINT8127,"Enter Stock Symbol: ";:6 
OSUB 6:IF IN$="" THEN 2020 ELSE IF Y=32 
THEN 100 ELSE IF Y€65 OR Y>9@ THEN 2020 
2025 PR$z"N":PRINT6208,"5end to printer 
(Y/N): “ss A=INPUT$(1):PRINT@200,BL$5:1F 
A="N" OR A="n"THEN 2030 ELSE IF A="Y" 0 
R A="y" THEN 2027 ELSE 2025 

2027 PR$2"Y" 

2030 CLS:PRINT H1$;H4$;:IF PR$z"Y" THEN 
LPRINT TAB(15) "Stock: "INS:LPRINT:LPRINT 
H1$:LPRINT H4$ 

2035 LC=Ø:N=Ø:T5=0 

2040 IF EOF(1) THEN 2070 

2050 INPUT#1,DT$,8S$,1D$,SH,PR,CM:IF ID$ 
<>INS$ THEN 2040 

2060 IF BS$="B" THEN BS$="Bought":TS=TS+ 

SH ELSE BS$=" Sold":TS=TS-SH 

2070 PRINT USING 61$;DT$; B8$: SH; PR; CM; :N 

zN*1:IF PR$z"Y" THEN LPRINT USING 61$;DT 

D$; BS$; SH; PR; CM 

2075 LCzLC*1:IF LC=5 AND PR$€?"Y" 

0SUB 510: CLS: PRINT H1$:H4$; :LCz0 

2080 GOTO 2040 

2090 PRINT:PRINT"Total:"N"Transactions" 
2091 IF PR$z"Y" THEN LPRINT:LPRINT"Total 
:"N"Transactions" 

2092 A="LONG": IF TS<@ THEN A="SHORT" 

2094 PRINT TAB(6)ş:1F TS=@ THEN PRINT" N 


THEN 6 









Ce x 
NY Chattanooga Choo Choo Software H 
Im M TT 
II Your One Stop Station CHRIST. AS SPECIALS TT 
TT Ad For Computer Programs B 
CH | w Track 29 İT 
II cy S RECREATION I I 
TT DN ær ING eee Silverware İİ 
TT Games 1 - 4games on cassette [|] 
d Blockade ` Frankenstein Adventure =p 
E) BUSINESS Reversi Alexis Adventure iT 
Lh Skyline Software 

(24K) $ $23.70 E 
LI PortaCalc - Electronic spreadsheet JL 
gi with 14 column by 26 row workspace! Games 2 - 4games on cassette a 
TI Full use of built in function keys. — gos my D 
LI TZ see ess am -— Williamsburg Adventure II 
LI "PortaStat - statistical package (24K) $23.55 $23.70 İT 
ls *PortaMax - linear programming Personal checks vvelcome. 
TI *PortaFin - Joan & investment pkg. Please add $2.00 for shipping. FEnekiy-Pear Sonware Mill del TI 
LI (24K) $42.70 ea. , s Viking - (24K) simulation game 
E "PortaFollo bel —- å Tennessee residents add 6.25% sales cassette $1 $17.95 iw 
ET VALI Ze SUONA — -—. -— Bowling League Secretary (24K) IT 
Geck : C ail A 2 3 .O.D. orders .00. cassette $34 $ 5 $31.45 = 
EL *interactive with PortaCalc data files Sand for fs . Football E 
EI Portable Computer Support Group complete catalog and descriptions! Pərli ae kər y^ R TI 
E Business Pak+ includes: : Æ 
T T Write+, Graph+, Expns+, Telex+, Scribe-Word Processor TT 
11 Put+, Sort+ & a 120-page manual Formats & prints from text files. LI 
A—L 6 cassettes (8K) $119-95 45 cassette e 23.70 Ai 
d $ $85 (8K) $ $ z 
de CS $ 
Və (615) 875-8656 6 P.O. Box 15892 @ Chattanooga, TN 37415 Så 

CSE Eee eee eee 








o Position":GOTG 2095 ELSE PRINT ABS(TS) 
"Shares "A 

2095 IF PR#<>"Y" THEN 2096 ELSE LPRINT T 
AB(6)3:IF TS=Ø THEN LPRINT" No Position" 
:80T0 2096 ELSE LPRINT ABS(TS)"Shares "A 
2096 GOSUB SØØ:CLOSE:GOTO 2000 

3000 ‘open position 

3010 GOSUB 200:GOSUB 300: 605UB 400 

3015 PRINT8203,"(Enter '*' for all stock 
s on file) 

3820 PRINT€130, "Enter Stock Symbol: "3:6 
OSUB 6:PRINT62800,BL$;:IF IN$z"" THEN 301 
5 ELSE IF Y=32 THEN 100 ELSE IF IN$s"«" 
THEN 700 ELSE IF Y€65 OR Y>9Ø THEN 3015 
3030 TS=@:PRINT@280,BL$; 

3040 IF EOF(1) THEN 3070 

3050 INPUT#1,DT$,BS$,ID$,SH,PR,CM 

3060 IF ID$<>INS THEN 3040 


3070 IF BS$="B" THEN TS=TS+SH ELSE TS=TS 
-8H 

3080 GOTO 3040 

3090 PRINT€210, "Current Position: ";:IF T 


820 THEN PRINT" None":60T0 3096 

3092 PRINT ABS(TS);:A="LONG":IF TS<@ THE 
N A="SHORT" 

3094 PRINT A 

3096 GOSUB 5ØØ:CLOSE:GOTO 3000 

4000 ‘end 


4010 CLS:MENU 
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Clear skies coming? ( 
Orisit $ 
going to rain 
cats and dogs? Try 
this Weather Map 
program to get the 
forecast. 


(Alexander Trevor is the 
executive vice president of 
computer resources at 
CompuServe. He also has a 
commercial pilot’s license 








with instrument and glider 
ratings, and spends much of 
his spare time programming 
his Model 100, Color Com- 
puter and IBM) PC.) 


ometimes the applications for a 
S device are so obvious that 
you hardly have to point them 

out. For example, set a Model 100 in 
front of a pilot, and it won't take long 
for him (or her) to realize that this little 
portable powerhouse could be very 
handy for pre-flight and in-flight chores. 
Although there have been other ma- 
chines that one could tote along in the 
cockpit, the 100 is the first one with a 
screen large enough to be useful in 
flight. Not only can the pilot retrieve 
flight plans and textual weather infor- 
mation obtained before takeoff from an 
information service (or entered manu- 
ally), but the 100 is capable of pretty 
decent graphics—a capability taat can 
be used to display weather radar maps. 
Graphical weather maps are available 
from a number of sources, but one of 
the least expensive ways to obtain maps 
that are easily displayed on the Model 
100 is to download the Vidtex® Radar 
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e bad r TÅevor 9 


CAPS 
LOCK 


SHIFT 


Maps from CompuServe. To do this, 
one must have a CompuServe Informa- 
tion Service account, and at least 16K of 
memory. The downloaded maps can 
consume up to 4K. The maps are trans- 
mitted in “run-length encoding,” which 
reduces transmission time as well as 
minimizing the amount of RAM re- 
quired to store them. However, without 
a program to decode the run-length 
encoding, the maps make about as 
much sense as the listing of a .CO file. 
Two different graphic resolutions are 
used: “high resolution” which is 256 
pixels wide by 192 high, and “medium 
resolution” (128 x 96). The accompany- 
ing listing is a program that will plot 
either high or medium resolution “run 
length encoded” graphics on the LCD 
screen. Since the Model 100 screen is 
only 240 x 64 pixels, High-Res maps are 
displayed in three sections, and me- 
dium-resolution maps in two. 
Although anyone interested in weath- 





PASTE LABEL 





er should find these maps useful, they 
are of particular interest to aircraft 
pilots, especially since maps can be dis- 
played at any time (including in flight). 
They provide a useful reminder of gen- 
eral weather trends, although they are 
not practical for detailed storm avoid- 
ance like true airborne radar, since the 
data is at least a half-hour old, and the 
resolution is too coarse. Each pixel 
represents an area of 20 x 20 miles. 
The run-length encoding spans all 
characters from 30 (decimal) through 
511, so eight-bit reception must be en- 
abled on your Model 100. This is done 
by setting the TELCOM status to 
M8NIE. However, CompuServe nor- 
mally sends seven-bit data with even 
parity, so you will see some strange gar- 
bage as you log in with this setting. The 
solution is to log on with default status 
(M7IIE) and change your terminal pa- 
rameters on CompuServe to set the par- 
ity bit to zero. This is easily accomp- 


PRINT 


Radio Shaek 


TRS-80 


MODEL 100 
PORTABLE 
COMPUTER 





lished by logging on, then typing “GO 
CIS-9” at the “!” prompt, or by running 
DEFALT from the programmers’ area. 
From the DEFALT menu, select “5” 


The listing: 


10 ‘CompuServe Vidtex Graphics Plotter 
11 ‘Use Telcom Stat MBNIE to down GRAFIX 
12 ‘Set PARITY ZERO on CompuServe 
Trevor, August 1983 


14 "By A.B. 
15 DEFINT A-Z 


20 INPUT"File to plot",FL$:0PEN FL$ FOR 


INPUT AS 1 


30 IF EOF(1) THEN PRINT FL$" not a graph 


ics file":STOP 


40 IF ASC(INPUT$(1,1))4527 THEN30 
60 CLS:T=Ø:MX=24Ø:LM=Ø:A$=INPUT$(2,1): IF 
A$="GH "THEN SF=256 ELSE IF A$="GM"THEN 


SF=128:MX=SF:LM=56 ELSE 20 
70 ‘Now decode the RLE 


88 GOSUB 250:X1-X:Y1-Y:60SUB250:1F B=ØTH 


EN80 


(View or Change Current Terminal Pa- 
rameters). Next, select *8" (Parity) and 
set it to zero. Finally, exit the DEFALT 
program and request that changes be 
effective for future sssions. Before log- 
ging on the next time, change your ter- 
minal parameters to M8N I E in TELCOM. 
Now when you log on you will see a little 
bit of strange stuff until you get to the 
“Password:” prompt. This is because, 
until you identify yourself, the host 
computer does not know what terminal 
parameters you desire. So, the initial 
“User ID:" prompt is sent with even 
parity, and those characters with the 
parity bit set to one (s,I and space) will 
appear as graphics characters on the 
100. 

At this point everything should ap- 
pear normal, and you can go to the Avi- 
ation Weather section, or directly to the 
weather maps (GO AVVX4). The pro- 
gram will correctly inform you that 
TELCOM is not equipped to display 
graphics and that they may appear as 
meaningless characters, but you can 
ignore this. When you see “Compu- 
Serve Vidtex Radar Maps," choose 
“1”— Prepare a map for display. Next, 
select *2"— Prepare current U.S. radar 
reports. The sytem will list the three 
letter ID of each radar site, and the 
GMT time of the report being collected. 
After all reports are collected, on the 
next menu choose "2"— Display pre- 
pared map. You may select any of the 
maps, but before you press ENTER 
after your choice, you must first press 
F2 (Down) and specify the name you 
wish to use for the downloaded file 
(MAPI or whatever). Then press 
ENTER, and you will be treated to sev- 
eral screenfuls of utter garbage, but 
don't panic! Just wait until you hear a 
BEEP, then press F2 (Down) to termi- 


nate the download, and ENTER to tell 
the host computer to proceed. You can 
now log off or continue with your on- 
line session. 

Once off-line, disconnect and go back 
to the menu. From here, you can run the 
GRAPHR.BA program. Give it the file 
name you specified to TELCOM, and 
watch the current weather map appear! 
An outline of the state boundaries will 
be drawn with radar "echoes" superim- 
posed on top. “Weak” and “moderate” 
echos will appear as horizontal shading, 
while stronger echoes appear solid 
black. When the screen is full, press any 
key to see the next section. 

A design “feature” of the Model 100 
will very occasionally cause a map to be 
partially trashed. For some reason, the 
Model 100 will not store a delete charac- 
ter (&H7F) ina RAM file without some 
sleight of hand, and one does not get an 
opportunity to do much magic in TEL- 
COM. The problem can be avoided by 
writing a special purpose communica- 
tions program which replaces the delete 
character with something else. 

One final remark for those contem- 
plating the use of this program in air- 
craft: Pilots need not be overly con- 
cerned about operating a Model 100 in 
flight. Although the Federal Aviation 
Regulations (FAR’s) saddle the pilot in 
command with the responsibility of 
determining whether or not an elec- 
tronic device (such as the Model 100) 
will cause harmful interference with 
navigation or communications radios, I 
have found nothing to suggest a prob- 
lem. My Model 100 has many hours of 
instrument flight time in my Cherokee 
Challenger, and I have never noticed 
any ill effects. I hear the same thing 
from other pilots who regularly fly 
172’s, King Airs and such with their lit- 
tle white boxes. 


90 IF B>64 THEN B=96:GOSUB 260 


Y1) 


120 IF X12-MXTHEN160 
150 IF X<MX AND X>X1 THEN LINE(X1+LM,Y1) 
-(X+LM,Y1) ELSE LINE(X1*LM,Y1) -CMX*LM-1, 


160 IF Y>Y1 THEN LINE(LM,Y)-(X*LM, Y) 


200 607080 


250 B=ASC(INPUT$(1,1))-32: IF B=-2 THEN B 


296 


260 X=X+B:IF X>=SF THEN XeX-SF:YeY41:1F 


270 
280 
380 
310 
315 
328 


RETURN 


Y=64THEN GOSUB3ØØ 
IF EOF(1) THEN GOSUB3ØØ 


FORS=5ØØØT0999STEP-4ØØ: SOUNDS, 1 : NEXT 
IF INKEY$="" THEN 310 
T=T+128: IF T>SF THEN CLS:END 
Y=Ø:CLS: RETURN 
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he built in ADDRSS and 

| SCHEDL programs of the Model 
100 have replaced my traditional 
appointment book. There was however, 
one feature that the appointment book 
had that the Model 100 didn't —month- 
ly calendars. Thus PoCo Calendar was 
born. At first, the program was merely a 
perpetual calendar, but a number of fea- 
tures have been added to increase its 


| | 2900 bytes. 
| | When the program is RUN, it will 


display the current month’s calendar. 
The current day is highlighted by a cur- 
sor. To display the previous month, 
press the “-” key. For the next month, 
press the “+=” key. Any month of the 
Gregorian Calendar (1582 A.D. to pres- 
ent and future) can be displayed by 
| pressing “1” (Note: use the keyboard 1, 
Í not the function key F1). The program 
will prompt you to enter MONTH/ 
YEAR? Enter the first three letters of 
the desired month (use all capitals) fol- 
lowed by a comma and the year. Include 
all digits for the year (JUL,1984 not 
JUL,84). Pressing “2” will turn on or off 
i a display of the current time and date. 
Key “3” will make a copy of the dis- 
| played calendar on a printer. 
* 
i 


By Ronald Paludan 


The fourth option allovvs you to use 
the PoCo as an alarm clock. After press- 
ing “4,” enter the alarm time using the 
same format that you used for setting 
TIMES (hour:minute:second—see Page 
18 of your user”s manual). You may 
leave off the seconds and enter hour: 
minute. Remember that the Model 100 
uses a 24 hour “military” clock. If you 
vvant the alarm to sound at 1:00 p.m., 
then set the alarm time for 13:00:00. 
After setting the alarm, the program 
vvill return to the calendar display and 
an asterisk (*) appears next to option 
four. To cancel the alarm, press 4 again. 
When the alarm sounds, it will beep for 
27 seconds or until any key is pressed. 

By using the cursor control keys, the 
cursor can be moved from one date to 
another. Moving the cursor beyond the 
upper or lower boundaries of the calen- 
dar will change the display to the pre- 
vious or next month respectively. If you 
press the 5 key, the program will search 


DECEMBER 1983 
S ET MT PB 
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10 
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ill Hİ 


EE 


your NOTE.DO file and display any 
messages for that day and month. In 
order for this option to work, your 
NOTE.DO messages must include the 


month followed by the day. For exam- | 


ple: 09/01 for September first. If there 
are no messages for that date, the pro- 
gram will print “NOTHING SCHE- 
DULED FOR (date)” and prompt you 
to press any key to return to the calen- 
dar display. 

Toexit PoCo Calendar, press key “6” 
and the program will return to the menu 
screen. 

There are two techniques used in 
PoCo Calendar which other program- 
mers may find useful. One is the use of 
inverse characters for the calendar head- 
er and the cursor. Printing CHR$(27); 
“p” causes subsequent characters to be 
printed in inverse mode. Printing 
CHR$(27):“q” restores printing to nor- 
mal mode (see Lines 130 and 540). The 
other technique of interest is the clock 
interrupt used for the alarm. Line 420 
instructs the computer to stop whatever 


it is doing and execute a subroutine | 


starting at Line 650 when the compu- 
ter’s clock (TIMES) matches the alarm 
time (T$). 


b... Xa 


E 
ëng 


| 








| | 


mETT?7 İT + = 


Tiiddiılııiii. i A. .. SAGER * ti,.... “7391299 å 3 AE 4 E Tr eV 
TİBB RETTET 
HELL SETTET TITTET 
FEHR HEGE HH 
15. 2211111111) TITELE ETE EEE 
| å å The listing: ili IT 
|. 10 REM POCO CALENDER by Ron Paludan (111 PRINTGW,SPACES$(17);:NEXT:LCOPY:GOTO280 1777 
11 20 DIMMS(12),D(12) (117 400 IFQ=4ANDAL=1THENPRINT@142," ":ALsü:T 7:1) 
11 30 FORX=17012:READM$(X) ,D OO : NEXT 110 INES OFF:6070430 TH 
!! 40 CLS:SCREEN 0,0 (111: 410 IFQ<>4THEN43QELSECLS:LINE INPUT"SET 1171) 
1) 50 V=1900+VAL (RİSHTS (DATE$ ,2)) :MeVAL(LEF 177: ALARM TIME-"; T$: IFLEN(T$) C&THENT$zT$«":Q HH 
ii T$(DATES,2)) :CTzVAL(MIDS(DATES,4,2)) Es. Q" HH 
"1 CT:G0T090 1041 420 ONTIMES=T$GOSUB650:TIME$S ON:AL=1:607 1777) 
ii 60 CLS:CD=1:CT=1: INPUT"MONTH, YEAR"; M$, Y: 117) 0120 Hd 
` FORM=1T012 (11) 430 IFOS=CHR$(31) OROS2CHR$ (30) ORQS=CHR$ (111 

| 70 IFLEFTS(MS(M) ,3) =LEFTS(M$,3) THENYØ (11 29) ORQS=CHR$(28) THENPRINT@CP-1,STR#(CD)" | 
| 80 NEXTM:PRINT:PRINT"NO SUCH MONTH":PRIN d : 
| T:60T060 440 IFQ$<>CHR$(28) THENA6QELSECPzCP*3:CXs | 
90 MN=M: YR=Y:MO=M: VE=Y1D=1: IFMNCSTHENMNs CX+3:CD=CD+1: IFCD<=D (MO) THENS2QELSEM=MO+ | 
MN+12: YRE=YR-1 1: IFM>L2THENM= 11 V=Y+1 ! 
100 KaD*2*MNeINT(. Gs (MN*1)) *YReINT(YR/A4) 450 CD=1:CT=1:G0T098 | 


“0 -1NT(YR/100) “1NT(YR/400) 42 
f 110 Ke1NT((X/7-1NT(K/7) )874.5) :KsK-İ:IFK ` 


<ØTHENK=6 

120 CLS 

130 PRINTTAB(7-LEN(M$ (MÜ) )/2) ; CHR$(27);" 
p "SM$(H0)" "YE;CHR$(27);"q" 

140 PRINT" S M T W T F 8" 

150 T=K:DA=1:CP=81+K#3:CX=K#*3: IFCT=1THEN 
182 

, 160 FORX=1TOCT-1:CP=CP+3:CX=CX+3: IFCX>18 


!! THENCP=CP+19:CX=0 


460 IFQ$< >CHR$(29) THEN4BØELSECP=CP-3:CX= | 
CX-3:CD=CD-1:IFCD>@THENS2@ELSEM=MO-1:I1FM — 
(1THENMe12:YzY-1 i 
470 CD=D(M):CT=D(M) :607090 i 
4 
D 


| 480 IFQ$< >CHR$(30) THENSØØELSECP=CP-4Ø:CD 


=CD-7: IFCD>ØTHENSZØELSEM=M0-1: IFMC1THENM ` 
=12:Y=Y-1 i 
490 CD=D(M):CT=D(M):60709Ø H 
500 IFQ$< >CHR$(31) THENS2BELSECP=CP+40:CD | 
=CD+7: IFCD<D(MO) THENSZØELSEM=MO+1: IFM>12 | | 
THENMz1:YzY*1 

| 


|| 170 NEXTX:CD=CT 110 510 CD=1:CT=1: 60709 
Í 180 IFT>6THENPRINT" ":T=0 111 520 IFCX>1BTHENCP=CP+19:CX=Ø hi 
| 190 PRINTTAB(T#3)STR$(DA);:DA=DA+i:T=T#+1 1777 530 IFCX<@THENCP=CP-19:CX=18 HH 
` 200 DM=D(M0):IFM<>2THEN260 (11 540 PRINTEEP-1 ,CHR$ (27) ş"p"ş" "RİSHTS(ST HH 
İ 210 IFY/4(21NT(Y/4) THEN260 (11 R$(£D) ,LEN(STR$ ((1))-1)" "ŞEHRS(27) "q" 1777 
11 220 IFY/AQQsINT(Y/400) THEN250 (11 550 Ire >STHENG4DELSECLS: S$=RIGHTS (STR$( HH 
11 230 IFY/100<>INT(Y/100)THEN250 111. MO) ,LEN(STR$ (MÜ) )-1) : IFLEN(S$) (2THENSSs" TH 
|. 240 60T0260 ENGT HH 
(| 250 DM=DM+1 (111 560 D$-RIGHTS(STRS(CD) LEN(STR$(CD))-1): dr 
+) 268 IFDACDM*1THEN18Q Hi IFLEN(D$)<2THEND$="0"+D$ HH 
11) 270 PRINT" "j:PRINTG25," " 1:1 570 8$28$*" / «D$10PEN"NOTE, DO*FORINPUTAS 11357 
(1) 280 PRINT@23,"1. NEW MONTH":PRINT@63,"2. 177) 1:8F=0 TERE 
[1| TIME/DATE":PRINT@103,"3. PRINT CALENDER hil 580 LINE INPUTBİ ,A$: IFINSTR(A$,S$)<>QTHE 171) 
(11 ":PRİNT€143,"4. SET ALARM" 1111 NPRINTAS:SF=1 Hİ 
H 290 PRINT@183,"5. SCHEDULE":PRINT@223,"6 ||. 590 IFEOF(1)THENG1Ø M 
(1) , MENU" 1140 500 6070580 | 
11 300 IFAL=1THENPRINTG142, "x" 111: 610 IFSF=ØTHENPRINT:PRINT" NOTHING "" 
11 310 QS=INKEY$:Q=VAL (08) : 1FQ$<>"+"ANDQS<> |||] SCHEDULED FOR "S$ HH 
"7 "="THENZ3ZØELSEM=M0+1:IFM>12THENM=t:Y=Y+1 |!!! 620 CLOSE:PRINT:PRINT" HİT ANY KEY TO HE 
!! 320 CT=1:CD=1:G0T090 “11: RETURN TO CALENDER":CTsCD HH 
T 330 IFQ$<>"-"THENSSOELSEM=MO-1: IFM<1THEN it 530 IFINKEY$=""THENSJØELSEGOTO9Ø HE 
T pedi i 111 640 1FQ<>STHENSOBELSEMENU iti 
H 1CT21:80T090 1111 650 PRINT6142," "sPRINT@Q, INKEYS iii 
11, 350 IFO=1THENGØ (111 660 FORX-1T020Q:BEEP: IFINKEY$<>""THENX=1 (111. 
101 360 IFQ=2ANDFL=1THENPRINT@2463,SPACE$(15) 1 99 nii 
“11 sPRINT@303,SPACE$ (15) ş :FLz0:6010390 1111 570 NEXTX:RETURN "i 
(11 870 IFQ=2ANDFL=@THENFL=1 1111 &80 DATAJANUARY,31,FEBRUARY,28, MARCH, 31, 11171 
(17 380 IFFL=1THENPRINTG263, "TİME: "TIMES:PRI (000 APRİL , 30, MAY, 31, JUNE, 30 JE 
(11 NT8303, "DATE: "DATES; (111 690 DATAJULY,31,AUGUST,31,SEPTEMBER,38,0 1571 
(11 390 IFQ<>3THEN4SQ@BELSEFORW=23TO263STEP4O: HE CTOBER,31,NOVEMBER,3@,DECEMBER,31 um |||! 
TETTE TET İHTTİİ111111111111 1111 1111111111 11İİİİİİİİİİİİİ.İ 
Du OTA, 
ALIETHHIHHHTHTHHHHALTHTHTHTHHTIT rin MALARI" | 
HHH e EH {BE EET 
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With Five Ready-to-Run Programs, Model 100 Is One of 
the Most Talked-About, Most-Wanted Computers Ever! 


Personal Word Processin 
Built-In Auto- 


America’s Gift Sensation! 


“This Christmas, give that busy executive or student 
in your family the computer that has revolutionized 
personal computing.” That's very good advice from 
Isaac Asimov. Model 100 is small enough to fit easily 
in briefcase or knapsack, yet powerful enough to 
serve as a desktop microcomputer. It requires no 
"extras" to get started. And you can use it any- 
where, because it works on batteries or an optional- 
extra AC adapter. “That makes it the perfect gift for 
people who need true portable computing power." 


Ready to Use— Just Turn It On! 


"| can use Model 100 the second | switch it on.” 
That's because five easy-to-use, built-in programs — 
plus your own files — are displayed instantly. Want to 
access information services and communicate with 
other computers? No problem. With Model 100 the 
direct-connect telephone modem is built in! 


A Truly Powerful Computer 


"| could write a book about the many uses a busy 
person can find for Model 100!" For instance, 
Model 100's typewriter-style keyboard, 8-line by 40- 
character display and powerful word processing soft- 
ware makes it ideal for any sort of text 
entry — memos, reports and speeches. Connect a 
printer to Model 100’s standard parallel interface for 
hard copy printouts. Load programs, text and data 
into Model 100 from almost any computer— desktop 
micro, mini or mainframe — via the built-in RS-232C 
interface and take your work with you on business 
trips. Or you can enter notes or data in the field and 
transfer that information back to your office com- 
puter by phone via Model 100's built-in modem. 


Stay on Top of Information 


"Model 100's advanced communications features 
put all the latest news, weather, sports, stock quotes 
and other important information from CompuServe? 
and Dow Jones News/Retrieval? right at my finger- 
tips. | can use Model 100 and the information net- 
works to send and receive 'electronic mail' and even 
do my shopping at home — or wherever else | am!" 
Store messages or draft-copy letters prepared on 
Model 100 with CompuServe's Electronic Mail Ser- 
vice to avoid long-distance transmission charges. 
(CompuServe is a local call in most major cities.) Then 
all your secretary has to do is call CompuServe to 


u Tən Scheduler m Address/Phone Directory 
ial Modem m BASIC Programming Language 


“pick up” the mail. That vvay, your vvork can be 
completed by the time you return. 


Loaded With Features 


"Programmers will appreciate Model 100's built-in 
Microsoft® BASIC language.” İt gives you full string 
handling, complete file operations, multi-dimension 
arrays, 14-digit double-precision accuracy, 240 x 64 
dot-addressible graphics and a five-octave sound 
generator. Model 100 includes a parallel printer port 
and a cassette port. It has eight function keys for 
built-in programs and BASIC, and four control keys 
for easy input. Memory is expandable in 8K incre- 
ments up to 32K so youcan store more information or 
write longer programs. 


Supported Coast-to-Coast 

"| can't think of anyone who wouldn't enjoy finding a 
Model 100 under the tree. And don’t forget that 
Model 100 users enjoy Radio Shack’s excellent sup- 
port system in over 6600 locations nationwide.” 
Drop by your nearby Radio Shack Computer Center, 
participating store or dealer today and pick up the 
TRS-80 Model 100 Portable Computer. It’s the per- 
fect present for busy people. 


24K TRS-80 Model 100 


99 00 


26-3802 
— AS LOW AS 
Radio (haet 


Dees $56 PER 
zl MONTH 


8K TRS-80 Model 100 


799° 


26-3801 
— AS LOW AS 
ken j^ PER 
B MONTH 
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Prices apply at participating Radio Shack stores and dealers, CompuServe is a registered trademark of CompuServe, Inc. Dow Jones News/Ratrieval is a registered trademark of Dow Jones & Co., İnc. Microsoft is a registered trademark of Microsoft Corp 


ere’s a little program that you 
Hees find both educational 

and fun to use. It’s a program 
that uses the sound generator chip in 
your Model 100 to generate Morse 
code. As you can see by the accompany- 
ing table, each character in Morse code 
is made up of a series of dots (short 
sounds) and dashes (longer sounds). 
There are also a few, simple rules that 
govern the length of the sounds and 
pauses that make up each character. 
First of all, the length of time for a dot *.* 
is considered to be one unit. The length 
of time for the sound of a dash ‘-’ is three 
times that for a dot, or three units. 
There is a one time unit pause between 


Morse Code Alphabet 


By Robert Frowenfeld 


each dot (or dash). Also, there is a pause 
of three time units between each charac- 
ter to be transmitted, and a pause of five 
time units between words. To ‘see’ how 
this works see the drawing where each 
of the letters in the word CAT are 
shown as they would be transmitted. 
When you first run this program a 
display will appear illustrating the 40 
Morse code characters that can be sent. 
This program also includes a special 
function that lets you test your Morse 
code receiving skills. There is a speed 
level which can be adjusted to any 
integer number between | and 10. To 
select a different speed simply press the 


ENTER key when requested to input a 
message. Once you Ve decided on a mes- 
sage to transmit, enter it from the key- 
board and press ENTER. As each letter 
is being “beeped” out at you, it vvill be 
displayed on the Model 1005 screen. If 
you want to see (and hear) all the avail- 
able characters, just type in the word 
TEST for your message. Remember, 
you must always use upper case letters 
when typing in your message. To end 
the program just type the word MENU 
and you will be returned to your Model 
100’s Menu display. Well, give it a try 
and see if you can start to develop the 
proper sense of timing to receive Morse 
code; S.F.B.M. would be proud of you! 


" "SMID$(A(I),2)3; ELSE PRINT LEFT$(A(1), 


1)" "SUSING"\GQioe)\"sMIDS(ACT) 12) t" 


O 


105 CLS:PRINT@40,"Speed:"SP:PRINT: PRINT" 


"SILINEINPUT A$:1F A$="ME 


NU" THEN MENU ELSE IF A$z"TEST" THEN A$= 


IF A$="" THEN GOSUB 208:GOTO 100 
PRINT@215,""3:FOR I=1 TO LEN(A) 
A12MID$(A,I,1) PRINT Al$ş:1F Als" "T 


J=INSTR(AA, Al): IF J=Ø THEN 150 
AZ=MID$S(A(J) ,2) K=LEN(A2) 

FOR J=1 TÜ K:A32MID$(82$,J,1) 1 IF A3= 
THEN LN=SP ELSE LN=SP#3 


IF J<>K THEN SOUND 1,5P 


Å .- Ls H own Y === 6 “sees 
B -... J.-- R.-. c. 7 -—,, 81 NEXT K:NEXT J 
E şey C= = Boe Q ----. 8 ---.. 90 FOR I=1 TO 5000:NEXT I 
D -.. L cz TE 1 .---- 9 ----, 100 “input message 
E x M -- U ven 2 vemmm e pran" 
F ..-. N-. Nenn 3 cast , --..-- Input Message: 
8 --. 0 -== MW.-- 44993“ ? ..--.. 
B axes P vg ya Biases Ärer AAS: GOTO 118 
107 
110 
The listing: 115 
1 CLEAR 2000:DEFINT B-Z:DEFSTR A HEN GOSUB 180:60T0 150 
10 CLS 120 
20 SOUND ON 125 
30 DIM A(4Ø) 130 
40 SP=5 Bb 
58 DATA A.-,B-... ,£-.-. ,D-, . ,E, ,F..-.,8- 135 SOUND 3000,LN 
wy Ba ene q la de Kea Lom e yilə 140 
55 DATA N-.,0---,P.-.,Q0--. -,R. -.,8. ..,T- 145 NEXT J 
DICH ER ET EECH TEE 148 SOUND 1,SP#3 
60 DATA 0----- 1.77 2. däs e 774 4... 150 NEXT I 
RR. ee ee EAT 77 LE ode LE Get 155 GOTO 100 
GS DATA ..—9.—.,—," mm 77 hy ee ei ann 180 SOUND 1,SP*5 
70 FOR I=1 TO 40:READ A$(I) :NEXT I 190 RETURN 
75 DATA "ABCDEFGHIJKLMNOPGORSTUVWXYZ01234 200 “change speeds 
568789, , 71: READ AA 4 210 


80 FOR J=1 TO 8:FOR Kei TO å: 
i IF K=5 AND J=8 THEN PRINT LE 
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T=J+(K-1) #8 
FT$(A(1),1) 


CLS:PRINT@128,"Enter Speed (1-10): " 
PILINEINPUT A$:SP=VAL(A$):IF SP<1 OR SP) 
10 THEN 210 ELSE RETURN 


[PCM] 


PRICKLY-PEAR SOFTWARE 
QUALITY PROGRAMS FOR YOUR MODEL 100 


MONSTERS * 


Monsters & Magic 


The most realistic fantasy role-playing game yet for the 
Color Computer. You start out by rolling up yourcharacters 
basic ability scores and buying equipment. When you are 
ready it’s into the dungeon. Your character starts at first 
level, but can rise in levels by garnering experience in the 
fray. If you have role-played fantasy games you will be 
amazed at the realism of the combat system. Armor class, 
initiative, and damage by weapon type are all included, 
with over 50 different monsters to fight - each with it's own 
abilities. As you rise in level you can win treasure and find 
magic weapons and spells - if you live!! You set the game 
length by telling how many monsters you want to fight 
before you reach your final battle to the death against the 
powerful Dungeon Lord. There are 1000+ place descrip- 
tion combinations in this text based game, and real excite- 
ment in every one! This is a fantasy simulation, and is truly 
not like any adventure game you have ever seen. For 1 
player. $19.95 tape—24K 


Astrology 


Truly a classic, this program will accurately cast your 
complete horoscope. You just enter the date, time, and 
place of birth. The sun sign, rising sign, mid heaven (MC), 
lunar nodes, and planetary influences including houses 
and aspects between the planets will all be calculated, and 
a full chart drawn. You can also do progressed charts and 
transits. It will even tell you the day of the week you were 
born. The accompanying book will help you interpret this 
chart of your horoscope. The extent of the documentation 
is tremendous, even by our exceptionally high standards, 
and no previous knowledge of the subject is required. You 
can share in this wisdom which has been used for thou- 
sands of years in many Cultures. This program was written 
by a professional Astrologer. $34.95 tape — 16K 


Your personal check is welcome - no delay. Include 
$1.50 shipping for each program ordered. (Shipping free 
on $50.00 or larger orders). AZ residents add 7% sales 
tax. Orders shipped within two days. 


Viking! 


A simulation for 1 to 4 persons. Each begins as a land- 
owner, and by farming their land, buying and selling land, 
expanding their fishing fleet, building on to their manu- 
factory, increasing their population, equiping and training 
more soldiers, and regulating their taxes, each player tries 
to increase their economic power and rank until one 
becomes ruler over all. But beware plagues, rats, raiders, 
revolts, bad weather, and other misfortunes which may lie 
along the road to success. As you progress, see the map of 
your holdings increase. Playable in 1 to 2 hours, and 
different every time, you may have an addiction problem. 
$19.95 tape — 24K 


, GANGBUSTERS 


Gangbusters 


If you ever wanted to try a life of crime, this is your chance. 
You will start out as a Punk, but by using brains, and a little 
muscle, you can rise to become a Hood, Runner, Bookie, 
Torpedo, Fence, Kingpin, or win by becoming Syndicate 
Boss. Indulge yourself. Bribe a judge, or the District 
Attorney. Pay off the Cops. Take out a contract on another 
player, but watch out, they may be after you. Buy trucking 
companies, bootleg operations, houses of ill fame, but 
remember, if you get caught, you may do some hard time. 
Do you have what it takes to take over? This game will keep 
you close to your rod, get you thinking about bulletproof 
glass in your car, and definitely bring out the worst in you, 
but you'll love every minute of it. For 2 to 6 players, takes 
about 2 hours to play. Every game is excitingly different. 
$19.95 tape — 24K 


Stocked by Quality Dealers, or 
Send Order To: PRICKLY-PEAR SOFTWARE 
— 9234 E. 30th Street 
(MasterCard Tucson, Arizona 85710 — 
== (602) 886-1505 — 





Want to forecast your heating bill for the coming winter? Pondering a switch 
to natural gas? Or perhaps to a woodstove? Here’s a program that will help 
answer such burning questions. 


Keeping an 
Eye on 


Home Heating 


Cost 


By Joseph Donohue 


already know the approximate num- 

ber of gallons (oil), kilowatt-hours 
(electricity), cords (wood), or therms 
(natural gas) your house consumes each 
winter. 

If you’re totally new at the energy 
game, don’t fret. This program enables 
you to make a “ballpark” estimate of 
fuel use by relying ona standard heating 
industry formula. 

Once it determines how much fuel 
you use, the computer will tally the cost 
using current prices. Then it lets you see 
how much you're saving — or spending 

compared to other fuels. 

Before running the program, keep 
these points in mind. 

First, the program works best if you're 
comparing heating systems designed to 
warm an entire house. 

Use of kerosene heaters, solar collec- 
tors, electric heaters, and other supple- 
mental heating sources obviously can 
alter your bill. 

The basic measure of heat content is 
the British Thermal Unit (BTU). A BTU 
represents the amount of energy needed 
to raise the temperature of one pound of 
water one degree fahrenheit. 

Various fuels contain the following 
BTUs (on average): 


I: you saved last year's bills, you 


Heating Oil, gallon: 139,400 
Natural gas, therm: 100,000 
Electricity, kilowatt-hour: 3,413 
Wood, cord (dry): 20,000,000 
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In southern New Jersey, a standard- 
sized (1,560-square-foot) house that's 
fairly well insulated devours about 78 
million BTUs each heating season. 

Except for electric heat, which is deli- 
vered at 100 percent efficiency once it 
reaches the house, other heaters per- 
form less well. 

A U.S. Department of Energy study 
places average seasonal efficiency for a 
conventional oil heater at 76 percent. A 
gas heater is 65 percent. A woodstove is 
about 55 percent 

Using these guidelines, the house men- 
tioned above requires 675 gallons of 
heating oil, 1,053 therms of gas, 4.9 
cords of wood, and 22,854 kilowatt- 
hours of electricity. 

When using the program, you simply 
enter the number of BTUs in the fuel 
you use, and the efficiency (.76 for oil, 
.55 for wood, .65 for gas, or 1.0 for 
electricity). 

If you kept last year's bills and already 
know the total fuel you used, enter that 
number. 

If you have no idea how much fuel 
your house gobbles up, try the Heat 
Loss Method. 

The computer first asks how many 
BTUs per hour your house gobbles. If 
it's fairly well-insulated, the figure will 
be about 37,000. If it's medium, 50,000. 
If it's really drafty, use 75,000. 

The computer next asks the average 
number of heating degree days in your 
area. 

You can find this by calling the local 






weather service or your local utility. 
You also can write to the National Cli- 
matic Center, Federal Building, Ashe- 
ville, North Carolina 28011. 

A heating degree day is figured by 
subtracting the average outside temper- 
ature for a given day from 65 degrees. 
For instance, if the temperature is 35, 
then the heating degree day is 65-35-30. 
It provides a reliable measure of each 
winter's coldness. 

In the continental United States, the 
total annual heating degree days range 
from a high of 10,000 in North Dakota 
to a low of 500 in Florida. 

Next, you enter the design tempera- 
ture. This is the coldest temperature at 
which your heating system will keep 
your house at 68 degrees. If it gets colder 
outside, your house will get chilly. 

As with heating degree days, design 
temperature varies with latitude from 
-25 in Bismarck, North Dakota to *36 
degrees in Tampa, Florida (see accom- 
panying table). 

Finally, the computer requests the 
efficiency and BTU content of the fuel. 

It then uses the modified American 
Society of Heating, Refrigerating, and 
Air-Conditioning Engineers degree-day 
formula to estimate fuel use. 

Now that the computer knows how 
much fuel you'll need, it will hand you 
the tab. 

The screen will read, *Want Gas (G), 
Oil (O), Electricity (E), or Wood (W)?" 

It's fairly easy to find out the price of 
wood or oil. Check the phone book and 


Table 1 
Design Temperatures 


call a local fuel merchant or wood dis- 
tributor. In southern New Jersey, oil 
currently sells for about $1.10 per gal- 
lon, wood sells for about $100 per cord. 


State City ` (2 F) State City (°F) To calculate the price of gas or elec- 
/ - tricity, you'll need to call your local util- 
Alabama Birmingham 19 Nevada ` Reno | . 2 ity. Ask them to read you their schedule 
Alaska Anchorage -25 New Hampshire Concord Jl of residential rates. 
Arizona Phoenix - 31 New Mexico Albuquerque 14 Rates usually consist of a fixed ser- 
Arkansas Little Rock 19. New York Buffalo 3 vice charge, varying charges per therm 
California Los Angeles 4| New York — New York 12 orkilowatt-hour depending on the level 
California San Francisco 35 North Carolina Raleigh 16 of consumption, and a fuel surcharge. 
Colorado Denver. -2 North Dakota Bismarck -24 You enter this data at Line 230 (for 
Connecticut Hartford | Ohio Columbus ..2 gas) and Line 410 (for electricity). 
Florida Tampa 36 Oklahoma Tulsa 12 For natural gas, the cost in southern 
Georgia Atlanta 18. Oregon Portland 21 | New Jersey for the first 33 therms is 
Idaho Boise 4 Pennsylvania Philadelphia 11 $26.30. This is entered as S. 
Illinois Chicago -3 Pennsylvania Pittsburgh 3 Above 33 therms, the charge is 60.5 
Indiana Indianapolis 0 Rhode Island Providence 6 cents apiece. This amount is entered as 
lowa Des Moines -7 South Carolina Charleston .— Q. 
Kansas VVichita 5 South Dakota Sioux Falls. -14 Currently, there is no fuel surcharge. 
Kentucky - Louisville $ Tennessee Chattanooga 15 So zero was entered as R. 
Louisiana New Orleans 32 Texas Dallas 19 For electricity, the service charge (S) 
Maryland Baltimore 12 Texas San Antonio 25 is $3.98, the first 500 kilowatt-hours 
Massachusetts ^ Boston 6 Utah Salt Lake City 5 cost 8.856 cents apiece (R), all others 
Michigan Detroit 4. Vermont Burlington “12 cost 6.499 cents apiece (Q), and there is 
Minnesota Minneapolis -14 Virginia Richmond 14 a fuel surcharge of -.329 cents per 
Mississippi Jackson 21 Washington Seattle 28 kilowatt-hour (P). 
Missouri St. Louis 4 West Virginia ` Charleston 9 The surcharge in this example is a 
Montana Helena -17 Wisconsin Madison e) negative number because electric cus- 
Nebraska Lincoln 4 Wyoming Cheyenne ~ tomers in southern New Jersey cur- 
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rently are earning a credit due to an 
overcharge last year. Normally, it would 
be a positive number. 

If your rates seem lower, remember 
that New Jersey has among the highest 
electric and natural gas rates in the 
nation. 

Between Lines 240 and 270, and Lines 
415 and 445, gas and electricity con- 
sumption is distributed proportionately 
for each of the six heating months. 

The symbols represent the months as 
follows: 


Z = October: 9 percent 
Y = November: 11 percent 
X = December: 18 percent 
W = January: 20 percent 
V = February: 18 percent 
U = March: 14 percent 
T = April: 10 percent 


You may have to tinker with this part 
of the program. The pattern of energy 
use may be different in your locale. 

In Florida, for instance, there may be 
no need to heat in October, March, and 
April. 

Now, let’s run through an example. 
First, we'll assume you know last year's 
fuel consumption. Let’s say you used 
1,000 gallons of oil. 


RUN 

FUEL COST ESTIMATOR 

TOTAL FUEL: 1,000 
WANT G, O, E, OR W o 
$ PER GALLON? $1.10 
ANN COST (0): $1,100. 


Now, you want to find out how much 
heating your house would cost with 
natural gas. The screen asks whether 
you want to compare other fuel. You 
enter “Y” for yes. 

It then asks for the BTU content of 
your existing fuel, in this case, 139,400. 
Then, the efficiency (.76). 

Next, the computer asks for the BTU 
content of the alternative fuel, in this 
case 100,000. Then, the efficiency of fuel 
two (.65). 


COMP OTHER FUEL (Y/N) Y 
BTU CONT (F1): 139,400 
EFF (F1): 76 
BTU CONT (F2): 100,000 
EFF (F2): 65 
ALT FUEL: 1517.66 
WANT G, O, E, OR W?: G 


ANN COST (G): $962.55 


You can also compare wood or base- 
board electric heater. 
When you do, the totals are: 


ALT FUEL: 8.50 
ANN COST (W): $815.04 
ALT FUEL: 32,938.57 
ANN COST (E): $2,142.66 


So we find that wood is the cheapest 
source of heat, followed in order by 
natural gas, oil, and electricity. 

If you don’t know last year’s fuel bill, 
use the heat loss method. 


KNOW TOTAL FUEL? N 
HEAT LOSS METHOD 


BTUS PER HOUR? 50,000 


DEGREE DAYS? 4,600 
DESIGN TEMP? 7 
EFFICIENCY? .76 
BTU CONT.? 139,400 
TOTAL FUEL = 854.14 
WANT G, O, E, OR W? O 
ANN. COST (O) = $1,024.97 


COMP OTHER FUEL? (Y/N) N 


If you want to compare other fuels 
using the heat loss method, you have to 
go back and use the formula with each 
alternate fuel because of the mathe- 
matics. 

Try natural gas this time. The data is 
the same except for the efficiency and 
the BTU content. 


HEAT LOSS METHOD 


BTUS PER HOUR: 50,000 
DEGREE DAYS: 4,600 
DESIGN TEMP: 7 
EFFICIENCY: 65 
BTU CONTENT: 100,000 
TOTAL FUEL: 1392 
WANT G, O, E, OR W? G 
ANN COST (G): $886.64 


For wood and electricity, you get the 
following results: 


TOTAL FUEL: 8.22 
ANN COST (W): $822.65 
TOTAL FUEL: 26,513.85 
ANN COST (E): $1746.26 


Once again, wood emerges as the 
favorite, electricity as the laggard, with 
gas and oil in between. 


80 CLS:PRINT 6120, 


"Total Fuel: ": INPUT F 


26 


10 CLS 85 GOTO 200 
15 DEFINT L,0,M 90 F=DD:BEEP:CLS:PRINT@160, "Alternate Fu 
16 DEFSNG F eli"jF 


"FUEL BILL ESTIMATOR" 
"Total FuelzA Heat Loss 


20 PRINT 650, 
40 PRINT€123, 
Method=B" 

45 PRINT€E210," (Enter A or B)":1NPUTA$ 

50 IF A$-"A"GOTO 80 

51 IF A$="a" OR A$="b" THEN GOSUB 70 

53 CLS:GOSUB B00:PRINT€280, "Btus per ho 
urs": INPUT H 

54 CLS:PRINTe280, "Degree Days: ": INPUTD 

55 CLS:PRINTE2BØ, "Design Temp: ":INPUTT 

56 CLS:608UB780:PRINTe280, "Efficiency:" 
: INPUTE 

57 CLS:GOSUB7@@: PRINT6280, 
of Fuel: ": INPUTC 

560 F=H*D*24/((68-T) +E*C) : BEEP:CLS:PRINTE 
120, "TOTAL FUEL (HEAT LOSS METHOD): "3F:6 
070280 

70 CLS:PRINTE16Ø, "PLEASE USE CAPITAL LET 
TERS": FOR X=1 TO 1000:NEXT X:607010 


"BTU Content 
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200 PRINT@280, "Want Gas (6), Oil (0), E 
lectricity (E), or Wood (W)":INPUTA$ 

202 A=.09#F: B=. 11#F:C=.18#F:D=. 20#F:E=. 1 
BeF: Bz, 14:F:Hz,108F 

205 IF A$="0" THEN 388 

207 IF A$="E"THEN 410 

208 IF A$="W"THEN 500 

230 5=29.22:00=.636Ø:R=Ø 

235 REM"RATES AS OF 5/B3:SERVICE CHARGE 
INCLUDES FIRST 33 THERMS" 

240 2=5+((A-33) *BQO) * (AAR) 

Y=5+((B-33) 608) + (BER) 
X28*((C- 33) #QQ)+(C#R) 
W=5+((D-33) &BQ) (DR) 
V=5+((E-33) 080) * (E*R) 

Uz5: (6-33) #QQ) +(G#R) 

T-z5:( (H-35) *#QQ) + (HAR) 
M=T+Ut+V+W+X+V+Z 


ELS: BEEP :PRINT@ 160, "Annual Bill (G 


as)=$";M 

285 GOTO 528 

300 PRINT 8280, "Dollars per gallon:":IN 

PUT J:0-F*J 

310 BEEP: CLS:PRINT €160,"Annual Bill (0 

i1l)=$"30 

320 5070320 

410 S=3.98:R=.112536:0=.078391:P=-. 01591 

9 

412 REM"RATES AS OF 10/83" 

418 1:5:(5009R) : ((A-500) +Q) + (AP) 

420 V=5+(5ØØ*R) 4 ( (B-500) *Q) * (B*P) 

425 X=5+ (5ØØKR)I 4 ( (£-500) #0) * (C*P) 

430 W=5+(5ØØ*R) +((D-5ØØ) xü) + (DAP) 

435 V=5+(5ØØ*R) 4 ((E-500) *Q) “(EsP) 

440 U=S+(500#R) +( (6-500) +Q) * (B*P) 

445 T=5+(5ØØ*R) “ ((H-500) *Q) + (HP) 

450 MzZ*Y*X*W*V*U*T 

455 CLS:BEEP:PRINT€160,"Annual Bill (Ele 

ctricity)2$"1M 

460 GOTO 520 

500 CLS:PRINT @160,"Dollars per cord": IN 

PUT KiL=F+K 

$10 BEEP:CLS:PRINT 8160,"Annual Bill (Wo 

od)2$";L 

$20 PRINT:INPUT "Compare other fuel? (Re 

member NOT to use with heat loss method) 
(Y/N) "JA$ 

S30 IF As="N"GOTO 10 

335 505UB700 

540 PRINT@28@,"BTU CONTENT FUEL 1:":1NPU 


568 CLS: GOSUB700:PRINT@280, "EFFICIENCY F 
UEL 1:":1NPUTE 

570 DelgE:DDeFaD 

580 CLS:GOSUB7@0:PRINT@280,"BTU CONTENT 

FUEL 2:":INPUT I 

990 CLS:G08UB700: PRINT8280, "EFFICIENCY F 
UEL 2:":INPUT E 


595 DzI*E 

600 DD=DD/D 

610 GOTO 90 

700 CLS:PRINT@5@,"BTUS EFFICIENCY" 
710 PRINT680, "GAS 100000 6 
5 " 

720 PRINT8120, "ELEC. 3413 ls 
00 " 

730 PRINTü160,"01L 139400 : 
76 n 

740 PRINTe200,"WOOD 20000000 

SA H 

75@ RETURN 

800 PRINT@4@,"INSULATION LEVEL BTUS" 
810 PRINT@8@, "HIGH 37000 
820 PRINT8120,"MEDIUM 50000 
830 PRINT@16@, "LOW 75000 
840 RETURN [PCM 


E EM ON ıı 
10 





CASSETTES 
pup 


COMPUTER GRADE 
DATA TRAC 
BLANK CASSETTES 


C-05, C-06, C-10, C-12, C-20, C-24, C-30 
















From the leading supplier of Computer Cassettes, 
new, longer length C-12's (6 minutes per side) provide 
the extra few feet needed for some 16K programs. 


BASF-LHD (DPS) world standard tape. 
Premium 5 screw shell with leader. 


Internationally acclaimed. 
Thousands of repeat users. 


Gc Error Free e Money back guarantee. 









CASSETTE STORAGE CADDY 
Holds 12 cassettes 
w/o boxes 

Includes edge labels 
and index card 


FREE 


1 CADDY WITH EVERY ` 
4 007. CASSETTES PURCHASED 


ə 500 C-12's or C-10's — 38ç each 
(vv ‘labels, add 4€ e Shipping $17 ‘500 
500 Boxes 13€ ea. ə Shipping $10. /500 
TRACTOR FEED * DIE-CUT 
BLANK CASSETTE LABELS 
g WHITE: $3.00/100 $20.00/1000 
“ə COLORED LABELS e Pastels - 
NEW Red. Blue, Green. Yellow, Lavender 
$4.00/100 $30.00/1000 


m Call: 213/700-0330 "o" 'MMEDIATE SHIPMENT eS 


on Credit Card Orders 
ORDER MAIL ™ 9525 Vassar Ave #P3 
ORDER ^w YORK TO" Sita wets 


gum um = en e em m ORDER FORM e en en em em em em eg 






















































H Each cassette #P3 m 
includes two YORK 10 ü 
| labels only. Boxes are 
sold separately. We | 
i preter to ship by UPS 
as being the fastest and 
| safest. If you need ship- li 
ment by Parcel Post 
|| check here [] b 
i NOTE. Additional H 
charges outside 48 
ğ Continental States i 
Shipments to AK, Hİ 
y and USA possessions i 
go by Priority Mail 
Calif. residents add sales tax E Canada & Mexico | 
I Shipping /handlıng (any quantity — using prices above) Airmail 
j Outside 48 Continental States — Additional $1 per All:otħers— Sea Mail | 
caddy; per doz. cassettes or boxes. 
i Ask about our | J 
CHECK OR M.O. Charge to DUPLICATING 
il ENCLOSED [1 Credit Card: VISA © MASTERCARD O SERVICE D 
i Q) PLEASE SEND QUANTITY DISCOUNTS i 
i Gard No: — eg, EET Exp. | 
i Name . .. — | 
|| 000. EE ER i 
i City “2... EE I 
Signature Phone ee 
I Computer make & model ` 000 Dısk? (y/n) 
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ave you been wondering what 
H good you'll get from that socket 

on the Model 100 protected by 
a black plastic cover labeled BCR (for 
bar code reader)? Well, wonder no 
more. 

Another reason your 100 was such a 
great buy is that there are two bar code 
readers now available for the PoCo that 
not only promise to open up the tech- 
nology to smaller businesses, but to 
individuals as well. Besides the usual 
applications like sales and inventory, 
what that means (in the very near future) 
is no more keyboard entry for program 
listings! Magazine program listings will 
soon carry extra bar code pages to allow 
you to “wand-in” the program. It also 
means you can create your own bar 
codes on a good quality dot-matrix 
printer . . . opening up all kinds of 
possibilities. PCM is out in the forefront 
with a review ofthe first bar code reader 
to hit the market for the Model 100 
(from B-T Enterprises . . . more on the 
that in the Product Revievv section). 


First, some bar code basics 

Bar codes have been around since the 
late 60s. Today, 144 companies now list 
themselves in the bar code manufactur- 
er’s guide, and there’s a bimonthly for 
the industry called Bar Code News. But 
its very popularity has created dozens of 
different “languages”—the white and 
black lines that end up representing 
numbers and letters, or even entire 
BASIC statements. UPC, or Universal 
Product Code, has become the retail 
standard. Supermarket scanners are now 
routine, but it was only the summer of 
1974 that the first UPC scanners were 
commercially installed. Bar codes are 
now used by many other industries— 
going by names like 3 of 9, 2 of 5, 2 of 7, 
NATI,EADN,JAN,LOGMARS, Coda- 
bar, and Plessey. Although fulfililng 
different functions, each bar code sym- 
bology operates on the same principal: 
pass a light source and a light detector 
close enough to the alternating white 
and black areas to be read, literally, asa 
code (sort of like the old Morse tele- 
graph code of dots and dashes). In this 
case, it’s a computer “telegraph opera- 
tor” that then matches up the proper 
numbers and words to tell us humans 
what that code means. 

But telegraph codes are to bar codes 
as a biplane is toa 747. For example, the 
bar code pattern dubbed “3 of 9” (in 
which there are nine vertical bars in 
each code and three of them are wide) 
has the possibility of 512 combinations 
or characters (twice as many as the 
entire ASCII set of 256). Mainly because 
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Magic Wand’ 
Your Mc 


By Jim Hawk 


Soon, the new bar code technology will elim- 
inate much of the laborious process of 
keying in program listings and provide for 
easy transfer of other important data. 


) 
Ü 


44254 000 


del 100 


(Jim Hawk has been working in radio 
news for the past 12 years, and has a 
science and electronics background. He 
also does freelance writing in Washing- 
ton, D.C.) 


the bar codes would be impractically 
long, only 43 alphanumeric characters 
are presently used. 


What's it for? 

The main intent is for applications 
like billing, inventory, retailing and man- 
ufacturing. But most exciting to the 
non-business BCR user is the promise 
of cheaply reproduced software. Word 
is out that direct programming of the 
100 via the bar code reader is just 
around the New Year's corner. With a 
few zips of your BCR “wand,” you'll 
soon be able to directly enter program 
listings without all the manual entry and 
near-inevitable human error, wear and 
tear to man and machine, and general 
frustration from a program that won't 
run because a colon was typed in as a 
semicolon. (Bar codes have a built-in 
“check-digit,” theoretically meaning the 
reader will get the information exact, or 
beep at you to try it agan.) Gutenberg 
would be proud—his printed page (in 
this case, bar-coded page) offers to 
revolutionize software publishing, which 
up to now has mainly been confined to 
magnetic form. Whereas hundreds of 
cassettes of a piece of software might be 
turned out ina day, millions of pages of 
bar code could be printed in the same 
time. 

This is new to just about everyone, so 
don’t be embarrassed if you’ve never 
heard the term “wand” before. 1 dis- 
covered there’s a whole new technolog- 
ical lingo. 


A few definitions 

The wand is industry jargon for the 
hand-held unit that actually “reads” the 
bar codes. The wand, or scanner, con- 
nects to a decoder that times the binary 
Ps and 0’s. It’s connected via a 9-pin 
“data communication interface” (plug) 
and those signals enable the 100's BASIC 
to make the final interpretation. The 
combination of scanner, decoder and 
interface make up the device accurately 
termed a “reader.” Trouble comes when 
you start having poor “resolution”—in 
this context, the minimum width that 
can be accurately scanned. Even high 
resolution scanners can be derailed by 
“voids,” or light areas in the bar, often 
caused by printing errors. “First, Read 
Rate” is defined as the percentage of 
correct readings that will be obtained in 
one pass of the scanner over the symbol. 
(Once you master the steady, sweeping 
motion needed to get an acceptable 
pass, that rate should be around 80 
percent.) Another measure of BCR per- 
formance is “substitution error rate”— 
the ratio of the number of incorrect 


2 games packages for your 
relaxation and enjoyment: 


MODEL 100 Games #1 


Blockade - Your ‘snake’ grows longer 
as you hit the randomly appearing 
targets on the screen! A one or two 
player real-time game. 


Reversi - Outflank your opponent! Play 
against the computer or another human. 


Frankenstein Adventure - Find all 
of the necessary equipment to awaken 
the monster 


Alexis Adventure - Sal the seas and 
traverse the islands to recapture your 
kingdom 


MODEL 100 Games #2 


Maximum - Outscore your opponent 
or the computer by taking the higher 
point squares and leaving a low point 
choice for them 


Checkers - The classic game! Play 
against the computer or against a 
human or have the computer play itself! 


Amazing Chase - Outrun two pur- 


suers in a maze in this real-time game 
with optional sound 


Williamsburg Adventure - Steal, 
eat, shoot, and laugh to find the golden 
horseshoe! 


Choose either of the games packages for 
only $24.95] 


- a lot of software for a little silver 


See your dealer or: 
Write or call us direct at PO. Box 21101, 
Santa Barbara CA 93121 1805) 966-1449 
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entries. The widely tested 3 of 9 code 
(called Code 39) is said to offer one 
substitution error out of 3 million char- 
acters read. That compares to human/ 
keyboard “first read” error rate esti- 
mated around | to 250. 


Invasion of the Bar Codes 

Once you start looking for bar codes, 
they re everywhere . . . like the one on 
the front of this very magazine—and, in 
fact, on virtually everything you might 
buy in the grocery store. Most of us use 
bar code technology so casually, vve”re 
hardly aware of it—like supermarket 
checkout systems using laser bar code 
readers that tell what the item is and its 
price. (Instead of wands, they use a 
super-sophisticated moving laser beam 
to read the code.) 

Libraries, hospitals, auto manufac- 
turing, film developing, package deliv- 
ery—the list of bar code applications in 
business is astounding. But all that 
seems too high-tech and/ or high priced. 
That supermarket BCR cost thousands. 
Now, the stunning news from Tandy is 
that Radio Shack will sell a bar code 
reader (as of Nov. 30, 1983), about the 
size and shape of a small carrot, for 
$99.95 including the necessary software. 
Meantime, also hitting the market is B- 
T Enterprises’ version of a bar code 
reader, selling for the subject-to-change 
price of $279. 

Both firms are taking advantage of 
solid-state LEDs (or Light Emitting 
Diodes) that allow small size and low 
power consumption (as well as low 
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Databar’s OSCAR is due in early 84. 
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New Tech Radio Shack's BCR, just out, includes operational 
software and carries a price tag of under $100. 


price). Both products are to decode 
UPC and 3 of 9, meaning small busi- 
nesses can finally get in on a technoloy 
formerly for the Big Guys only. 

A bar code device can be important in 
dealing with the biggest buyer of all: 
Uncle Sam. The Pentagon now requires 
bar coding on many contractor-sup- 
plied parts and documents. It wouldn't 
be Departmnt of Defense without an 
abbreviation: DOD’s standard is called 
LOGMARS, which stands for Logistics 


Applications of Automated Marking 
and Reading Symbols. And you won't 
just have to depend on other people's 
bar codes—a dot matrix printer with 
graphics capability can let you make 
your own. (Maybe I'll finally untangle 
my videocassettes!) 

Once the software becomes available, 
Radio Shack says any DMP-120 or up 
can do the job of printing bar codes, 
which are really just fancy graphics. As 
for program entry, it's a matter of 
getting a standardized bar code system 
compatible with Microsoft BASIC... 
and therein lies a story. 


The Chicken or the Egg Syndrome 

This idea of bypassing keyboard entry 
in favor of bar coding has been around a 
long time. But the advent of actually 
programming personal computers by 
bar code is relatively new, and there 
have been some false starts. 

Carl Helmers, cofounder of Byte Mag- 
azine, made the first effort back in the 
fall of 1976 when he got the idea to put 
out a magazine of bar-coded programs 
called Paper Bytes. It never caught on 
because home computes were more bul- 
ky as well as expensive. “It’s a chicken 
and egg thing," says Helmers. But while 
Paper Bytes bit the dust, Helmers went 
onto form North American Technology 
Institute and the NATI bar code. Hel- 
mers is responsible for a PASCAL 
program/ report that I’m told went into 
Radio Shack’s engineering development 
of the M100. NATI bar codes appeared 
to bethe best way of squeezing the most 


programming in the least space, but it 
wasn’t quite right for Tandy’s applica- 
tions. That may explain why Radio 
Shack decided to adopt its own Tandy 
Code Standard. It is primarily the same 
as Helmers’ NATI, but has an extra 
“bit” to indicate whether it’s a machine 
code ora BASIC code. Obviously, Tandy 
has high hopes for its bar code reader. 

One good sign for the new generation 
of BCRs comes from Tandy’s Texas 
neighbor: Hewlett Packard. HP is the 
primary supplier of “wand” technology, 
and currently offers a super-sophistica- 
ted calculator/computer (HP-41) that 
can be programmed via an optional 
wand. The limitation is that it reads HP- 
41 bar code only, and the programs are 
mostly engineering-oriented. 

Another factor pushing BCR progress 
is the home computer competition: a 
firm called Databar out of Minneapolis 
intends to market its own Opti- 
cal Scanning Reader (dubbed OSCAR) 
alleged to be compatible with Atari, 
Commodore, the no-longer-manufact- 
ured Texas Instruments 99/4A, and 
possibly Radio Shack’s own Color 
Computer. 

The company also has announced it 
will publish a $120-a-year bar code mag- 
azine, containing programs that OSCAR 
will theoretically transfer to compatible 
computers via the cassette port. Release 
date is early 1984, although no actual 
hardware has yet been demonstrated. 

Bar codes have even become “child”s 
play.” The Texas Instruments product 
called “Speak and Read” is still being 
sold (slowly), touting storybooks with 
bar codes on the bottom of each page. 
The child is supposed to rub the toy’s 
wand over the bar code, and a voice- 
synthesis speaks the words to children. 
It seems like a good idea, but wand 
readers are fussy about the speed they’re 
passed over bar codes, and kids get 
fussy when their toys act up; my own 
spot-check found only a few in stores 
this season. 


Leave it to Tandy to come up witha 
true price vs. performance break- 
through. Although the 1984 computer 
catalog says the new bar code reader 
will decode NATI (as well as UPC and 3 
of 9), Tandy decided enough modifica- 
tions were needed to justify a new code. 

Roy Irvine is Tandy's bar code buyer, 
and says the so-called “Tandy code" will 
be broad-based: allowing either direct 
entry of machine code, ASCII text, or 
“tokenized” BASIC. Tokenizing is a way 
of cutting down on the number of bar 
codes needed for a given size program: 
instead of using at least five characters 
for “GOSUB,” you turn it into a one or 
two character bar code. On a 4K pro- 
gram this adds up quickly. 

Experiments have already been done 
on the 3 of 9 code, allowing a person to 


"Once the software 
becomes available, 
Radio Shack says 
any DMP-120 or 
up can do the 

job of printing 

bar codes...” 


l— Ó——————— 
wand-in a program listing. But it's a 
very inefficient code for that kind of 
application. Tandy's plan is to market 
its own bar-code system, with software 
that can properly tokenize the various 
forms of BASIC used in the TRS-80 
computer line. In other words, with the 
eventual listing of programs in Tandy 
bar code, a guy with a Model 100 and a 
Model II could “wand it in" on his 
PoCo, and then transfer it to his mini- 
mainframe. It means bar coding would 
be opened up to a much wider market 
than just the 100. It also likely will mean 
further price cuts for BCRs. Irvine sums 
it up: "We're trying to get the cost down 


8K MEMORY MODULES FOR THE 
TRS-80 MODEL 100 PORTABLE COMPUTER 


$85 each, 2 or more $80 each 
Exact Replacements for RS Memory 


Easy To Install ə Warranty Included 


so everybody can buy one." 

What can this new PoCo peripheral 
do or not do? It can decode several of 
the most popular industrial bar codes. It 
will soon be able to enter BASIC pro- 
grams into the M100. It won't replace 
the cassette machine, or disk storage; 
it's still a manual system, and one 
estimate says it will take two to four 
minutes to enter a 4K program. No, the 
bar code reader will just be an excellent 
addition to an already excellent com- 
puter. And, there's no law against saving 
the program to cassette after you've 
entered it once by BCR. Soon, you 
won't have to decide that you really 
want a particular program listing before 
laboriously typing it in—just wave your 
"magic" wand. 


Future Tech 

Market Street Systems out of Ports- 
mouth, N.H., is already selling a dedi- 
cated Model 100 and industrial-grade 
bar code printer that generates every 
major bar code, but the price is indus- 
trial-grade, too: $6,800. 

A glimpse of what the future holds 
comes from Spectra-Physics' industrial 
hand-held laser scanner. It looks exact- 
ly like something from the set of Star 
Trek, resembling the fictional “Phaser.” 
And the advantages over a wand are 
numerous: it can be held up to 38 inches 
away and still read bar codes; it's faster, 
and can read through plastic wrapping 
and smudged codes that a wand would 
never be able to. This particular unit is 
for industrial applications, and costs 
more than the Model 100. But with 
advances in solid-state lasers (the one 
now marketed uses a miniature helium- 
neon gas laser) both the size and price 
will likely come down. 

At the very least, future-tech products 
like this point to ever-expanding use of 
bar codes by all kinds of retailers. And 
when the price is right, can the hand- 
held laser scanner then be far off? 


[PCM 


VISA and MC Accepted * CA Residents Add 6.5% Sales Tax 


IOTA SYSTEMS ə 1690 Day Valley Road e Aptos, CA 95003 e (408) 684-0482 
Prices Subject To Change Without Notice e TRS-80 is a trademark of Tandy Corporation 
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his short routine will renumber 

| the lines of your BASIC programs. 

First store the program you wish 

to renumber in text as a .DO file. You 

will need enough space for another file 

of the same size. Renum generates the 

new file, named “NEW,” and the old file 
is unchanged. 

Next, execute Renum and answer the 
first question with the name of the file 
you wish renumbered. Give the name 
only—not the file extention. 


The next two questions asked are for 
first line number you wish and the 
increment. After that just sit back and 
wait. Each time "WORKING . . ." 
flashes on the display, a new line is being 
scanned. 

This routine checks for spaces be- 
tween target numbers and commas, as 
in ON GOTO statements. This space 
checking takes time, so if you are sure 
there are no spaces to worry about then 
remove lines 190 and 250. My time test 


took 2 minutes 23 seconds to renumber 
5.5K of BASIC in text form with space 
checking. Another way to save time is to 
remove the "RESTORE AND RE- 
SUME" from the data staement in line 
20. Be sure to adjust the “FOR S=6” to 


"FOR S-4" in line 120. 


If there is an undefined line in your 
program, Renum will stop and point it 
out to you. You will then have to start 
over. When the run is completed, 
Renum will beep at you and display 


The listing: 


32 


Ø BASIC LINE RENUMBER ROUTINE 
by: 1, randall 
12306 teri. dr. 
poway, ca. 72064 

10 ELEAR1000:MAXFILES-2:DEF1NTA-7 
20 CLS:FORI=1TO6:READA$(I) : NEXT:DATA GOT 
0,GOSUB,RESTORE, THEN, ELSE RESUME 
3Ø INPUT"FILE NAME TO BE RENUMBERED: "3F 
N$ 
40 FN$="RAM: "+FN$: OPENFNSFORINPUTAS1:D=1 
50 IFEOF(1)THENCLOSE:BOTOSØELSELINEINPUT 
#1,A%:D=D+1:G0TOS8 
560 D=D-2:DINA(D,1):O0PENFNSFORINPUTASI:PR 
INT 
70 INPUT"FIRST LINE NUMBER DESIRED: "iN 
80 PRINT:INPUT"LINE INCREMENT DESIRED: " 
sIiN=N-I :FORK=ØTOD:LINEINPUTHL, AS: N=N+I 
F0 ACK, @)=VAL(LEFTS$(A$,5)) :A(K, 1) =NINEXT 
100 CLOSE: OPENFN$FORINPUTAS1: OPEN" RAM: NE 
W.DO"FORQUTPUTAS2:FORK=8TOD:CLS 
110 PRINT@5@,"WORKING....."sLINEINPUT#!, 
A$: L2=LEN(STRS$(VAL(LEFTS$(A$,5)))):AS=STR 
$(A(K, 1) )J+MIDS(AF,L2) :L=LEN(AS) 
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"COMPLETED." 


120 FORS=1T06:X=1 

130 XsINSTR(X,A$,0$ (S) ) 1 IFX=ØTHEN18Ø 

140 X=X+LEN(A$(S)) 

150 IFMIDS(A$,X,1)=" "THENXZX*1:80T0150 

160 IFMID$(A$,X,1)=>"O"ANDMID$(AS,X,1)<= 
"9"THENGOSUBL9@ELSE130 

170 IFX«LTHEN130 

180 NEXT:PRINT#2,A$:NEXTs BEEP: CLS: BEEP:P 
RINT: PRINT: PRINT" COMPLETE 
D":END 

190 IFMIDS(A$,X,1)=" "THENX=X+1:GOT019Ø 

200 L=LEN(A$):AZ=VAL(MIDS(A$,X,5)) 1A2$=5 
TR$(A2) : A2$=MID$(A2$,2) : L2=LEN(A2$) 1 C=-1 
210 C=C+1: IFC>DTHENSOUNDBØØØ, BØ: PRINTAS: 
PRINTTAB(X-2); "^":PRINT" dt UNDEFIN 
ED LINE NUMBER sk": END 

220 IFA2-A(C,0) THENAS$=STR$(A(C,1)) ELSE2 
10 

230 AS=MIDS(A$,1,X-1) &MIDS(ASS,2) *MIDS(A 
$,X*L2,L) 

240 X=X+LEN(A3$)-1 

250 IFMIDS(A$,X,1)=" "THENX-X*1:80T0250 

250 IFMID$(A$,X,1)=","THENX=X+1:G0T0190 

270 RETURN — 


Snoop-Proot 
Your Memory! 


By Richard T. Rogers 


Passwording your Model 100 can keep unwanted snoops from gaining access to 


your privileged data. 


ting into the prose of Shakespearian 

sonnets, | cannot count the ways. 
But if I had to pick a favorite feature, it 
is its ability to “telecommunicate.” 

My work involves travel, and I spend 
much time in airports, strange hotels, 
and even stranger cities. Before leaving 
on a trip, I load up all the “local” tele- 
phone numbers for the communication 
nodes in the places 1 will be visiting. 1 
put these numbers in my ADRS.DO file 

. and thereafter “punching in” is 
simply a one button exercise. I check 
into three on-line data bases daily, and 
the Model 100’s ability to remember 
phone numbers, passwords, and log-on 
procedures is wonderful; it is a/so the 
source of my primary concern about the 
machine. In what must be a corpo- 


I love my Model 100. VVithout get- 


rate oversight, Tandy forgot to put any 
kind of security on this marvelous box. 
Asa result, anyone who gets their hands 
on my machine (or yours) can get at 
everything in the machine. . including 
my passwords, ID numbers, and other“keys” 
to some pretty expensive (and) or privi- 
leged) stuff. At the moment this really 
isn't much of a problem since very few 
people today know how to turn on the 
Model 100, and even fewer appreciate 
the nuance of telecommunicating. But 
while the chances of somebody stealing 
and using this information are remote, 
the consequences are sizeable (one of 
my data bases charges $350 an hour!). 
As smart as the Model 100 is, there 
must be some way to take care of this 
problem... .and there is! Why not teach 
the Model 100 to protect itself from 
snoops? It can be done with a very sim- 





ple one line BASIC program. And here it 
is: 


I IFINKEY$=“z”THENMENUELSE 
POWEROFF,RESUME:GOTOI 


or, the less memory-efficient but more 
readable: 


I IF INKEY$ = "z^ THEN MENU 
ELSE POWEROFF, RESUME: GO 
TOI 


(I suggest you SAVE this program to 
memory under the name of Z.BA...do 
this with a SAVE"Z" command.) 

All this program does is check the 
keyboard on power-up to see if the 
operator is holding down the “z” key (ie, 
the /owercase “z,” not *Z"). If this key is 
being depressed, the program branches 
to the MENU at which point the opera- 
tor can run the Model 100 in an unres- 
tricted fashion. But if the “z” key is not 
being depressed when this program runs, 
the machine automatically shuts itself 
off. 

This software driven power-down pro- 
cess is a little unusual, however. Notice 
that the POWEROFF statement is fol- 
lowed by a RESUME. If you check 
your BASIC Reference Manual, you will 
find that the Model 100 continues to 
hold your BASIC program even after 
POWEROFF, and when you turn the 
power back on, the machine continues 
to run whatever part of the program 
follows the RESUME statement (in this 
case, the GOTOI statement). In other 
words, the next time you turn on the 
machine it will not display the typical 
MENU. Instead, it will continue run- 
ning your little BASIC program, and 
immediately executes the GOTO state- 
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ment which causes the same one line 
program to run again. This, in pro- 
gramming terms, is called a loop. The 
result now is that the program once 
again checks to see if the “z” key has 
been depressed and, if not, shuts off the 
machine once again. 

So far, we have taught our machine to 
turn itself off (under appropriate cir- 
cumstances). We have done this with a 
BASIC program which contains one con- 
ditional branching statement (an IF/ 
THEN statement). And by now some of 
you are surely asking what happens if a 
knowledgeable snoop gets into our ma- 
chine, suspects what is going on, and 
attempts to power-up with the BREAK 
key depressed? 

IF you understand BASIC program- 
ming, the answer is obvious, You will 
interrupt the program in mid-step be- 
fore the program has the opportunity to 
execute the POWEROFF command. In 
other words, your snoop will get control 
of your system, be able to leave the 
BASIC program and proceed through 
your MENU with aplomb. In short, all 
your passwording efforts have failed 
you. Is there anything that can be done 
about this? Or, putting it another way, is 
there some way to disable the BREAK 
key? 

After several inquiries to Tandy Cen- 
ter, self-appointed gurus, various spe- 
cial interest groups (SIGS) on Compu- 
Serve, etc., I finally discovered how to 
do this. I have not bothered to discover 
why or even how this works but I have 
found a way to disable the BREAK key. 
It is another simple BASIC statement 
which is: 


POKE 63056,128 


Anything you turn off you also want 
to turn on... and so the command to 
re-activate the BREAK key is: 


POKE 63056,0 


Try this little routine a few times to 
see if it works, Once satisfied that it 
does, RUN and next run the Password 
program. Now try running the pass- 
word program and interrupting the Z.BA 
program’s execution by holding down 
the BREAK key when you turn the 
machine back on again. It doesn’t work, 
does it? Now, just to be certain, go 
ahead and turn the machine back on 
with the “z” key depressed . . . you are 
back to the MENU now, aren’t you? 
One problem now is that your BREAK 
key is still disabled. There’s got to be 
some way to put the system back “where 
it belongs” if the user successfully passes 
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the *password" hurdle. The way to do 
this, of course, isto restorethe BREAK 
key just before calling the MENU pro- 
gram. 

Putting all this together yields two 
programs, not one. Here they are: 


[OFF.BA] 
I POKE63056,128:RUN*Z 


[Z.BA] 
I IFINKEY$=“z” THENPOKE63056,0: 
MENUELSEPOWEROFF,RESUME: 
GOTOI 


Now when you turn off the system, 
simply RUN the OFF.BA program which 
is shown on the MENU. This will first 
disable the BREAK key and then run 
the password program itself. If you are 
not pressing the “z” key when you start 
this chain of events (and you normally 
wouldn't be doing this), the machine 
will turn itself off and will be standing- 
by to re-run the Z.BA program when- 
ever the power switch is turned on 
again. 

As far as ] know, the only way to 
crack this system is to hold both the 
BREAK key and the RESET button 
(on the back edge of Model 100) while 
you turn on the computer. Release the 
RESET button while continuing to de- 
press the BREAK key and you should 
(but no guarantees) interrupt the Z.BA 
program. After tryingto crack open this 
system a few times, I should report to 
you that you are just as likely to make 
the whole machine lock-up tight, a not 
totally undesirable result if you think 
about it (the only person likely to be 
trying these convolutions is someone 
who doesn't know your password any- 
way). 

While on this subject, please remem- 
berthat turning on the machine with the 
CTRL and PAUSE keys depressed will 
eradicate ALL your Model 100's mem- 
ory (including the OFF.BA and Z.BA 
programs themselves). Again, you may 
be in trouble if someone does this to 
your machine; but in these circumstan- 
ces, a complete memory wipe-out may 
be preferable to saving the system intact 
for someone else to mess with! 

One final note. Remember that the 
OFF program only works if you turn off 
the machine by running this program. 
What happens if you power down with- 
out running your security system? Ob- 
viously, the machine goes to sleep with- 
out any password protection program 
in it, and then you are back to a com- 
pletely unsecured system. Obviously, if 
you want full password protection, you 
should only exit a session on the Model 


100 by running the OFF.BA program. 

There is, however, one other thing 
youcan do to help avoid the consequen- 
ces of your absent-mindedness (i.e., the 
failure to follow this simple turn-off 
process). This method is to make the 
OFF.BA program run automatically 
whenever the machine is turned on. You 
may do this by establishing OFF.BA as 
an IPL file. 

IPL stands for Initial Program Load; 
it is an instruction which the machine 
carries in its memory and executes when- 
ever the Model 100 is turned off while 
running any “applications” program... 
and then is turned back on again. To 
invoke this function, simply enter (from 
BASIC). 


IPL *OFF.BA"CENTER^ 


Now, if you turn off the machine while 
using the BASIC interpreter—and then 
turn it back on again—MENU will 
briefly appear on the screen and then 
the machine will suddenly turn itself off. 
Accordingly, the IPL“OFF.BA” com- 
mand makes the system almost fool- 
proof (but not quite). 

The IPL system only executes if you 
turn off the machine while running an 
applications program (eg, TELCOM, a 
text file, BASIC, etc.). If, perchance, you 
return to the machine’s main MENU 
and then turn off the machine using the 
switch on its side, the Model 100 will not 
thereafter execute the IPL instruction. 
In short, the IPL system, when used 
with the password program, will pre- 
vent you from most—but not all—of 
your oversights. Until 1 find some way 
around this, you will just have to learn 
not to turn off the machine using the 


‘manual switch whenever the MENU is 


being displayed. 

This discussion of passwording has 
somehow slipped into a tutorial on 
BASIC programming. To those of you 
who have no interest in BASIC, 1 apolog- 
ize. Your salvation is simply to type in 
the programs, follow the rest of the 
instructions, and don't bother with wor- 
rying about exactly how or why all this 
password stuff works. But for those of 
you who are interested in writing your 
own Model 100 programs, perhaps 
you've learned something new. This 
may be your first exposure to the POWER- 
OFF, RESUME, IPL and POKE com- 
mands. Fear not; they're not unfathom- 
able. And for those of you who already 
understand BASIC programming, well, 
you've probably already thoüght of sev- 
eral changes and embellishments to this 
program you wish to make. Go to it! 
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Bi-Tech Bar Code 
Reader— The 
Emerging 
Technology 


First, the product supplied was in its 
final hardware form, but the software 
was not. BT President Thomas Vande- 
Stouwe says the main holdup is getting 
the accuracy up to speed. He told me the 
software supplied for this review has a 
substitution-free “first read rate" of only 
87 percent while the industry standard is 
99 percent—and he won't ship any units 
for sale until the software "loops" are 
tightened up. Keeping that in mind, 
here's what I found... 

The hardware is simplicity itself: just 
press the trapezoid-shaped plug into the 
BCR socket. The wand is easy to use 
and comes equipped with a power- 
saving wide-bar switch so you can turn 
the reader on only when actually scan- 
ning 3 of 9 code. Once I got the bar- 
reading program and its machine-lan- 
guage routine loaded from cassette, the 
wand worked the first time I tried it. A 
black outline appears around the screen 
and the words "Scan bar code" ap- 
peared. Following advice in the scanty 
directions to zip over the bar codes like 
"striking a match" produced the most 
reliable results. If you stray from the bar 
code or don't zip over the bar codes at 
the right speed, the Model 100 beeps 
and flashes "Error." But there's the 
rub—sometimes I'd get a “”” appearing 
where a letter or number was supposed 
to be and not an error message. A cou- 
ple of times complete garbage would 
appear. This is a software problem that 
must be solved. Documentation is vi- 
tally important, and was lacking in this 
pre-production sample . . . I got the 
Epson HX-20 manual, but it had mostly 
general information and specifications— 
not the user-friendly instructions I'd 
hoped for. Warning: I tried to run the 
Bar-reading program before calling the 
company for directions and learned a 
real lesson: never run a program you're 
unsure about. Because 1 neglected to 
enter the machine-code program that 
accompanied BAREAD, I totally wiped 
out my memory— BK address book and 


all. Also, once the program starts run- 
ning, provisions were not made to 
"break"—in fact, the entire keyboard 
was disabled so | had to hit Reset to get 
back to the main menu. This is typical of 
bar code reading programs I'm told— 
the machine language has to be so fast, 
it ignores all other inputs. Anyway, BT 
is working on it. 

Another product from BT Enterprises 
was a separate program to print 3 of 9 
bar codes with a Radio Shack series 
DMP printer. It was written by a former 
Tandy quality assurance specialist for 
the Model 100 project, Joey Rodrigue, 
now living in Hot Springs, Arkansas. 
BT intends to sell his program for 
$29.95—a price low enough to combat 
the scourge of copying that plagues 
software authors. ` 

Menus prompt you for title and head- 
er, and in seconds you see bar code 
appearing on paper, finishing up with 
the text in human-readable letters and 
numbers right underneath. Although 
no documentation was supplied with 
this prototype, I had it up and running 
easily because the program only re- 
quires you to type in what you want 
bar-coded. The program worked just 
fine on a DMP 200 or 500, but my 
DMP-120 was balky. Instead of print- 
ing (in condensed mode) one thin line of 
bar code and then returning the carriage 
with a partial line feed for another pass 
to make the bars taller, my printer 
would “wrap around” the repeats— 
leaving me with six thin versions instead 
of one thick one. 1 phoned the author 
about the bug, and he had it corrected 
within 24 hours by making three simple 
changes and it works perfectly. How- 
ever, the bar-reading software isn’t quite 
a perfect match yet, because of the fact 
that upon reading verified code back 
through the BT wand, I'd get errors like 
a "/D" instead of a "$" sign—again 
blamed on the pre-production reader 
software. 

Overall, the bar-code wand hardware 
is magnificent: well designed, easy to 
handle, and lightweight but rugged. It 
also looks quite similar to the one Radio 
Shack is introducing—and Td speculate 
we'll see the same *HP" logo (Hewlett 
Packard) on the business end if the 
replacable tip is unscrewed. The bar- 
reading software is another story—for 
bar codes to catch on, they'll have to be 
just as accurate an input as a cassette 


machine. This version had accuracy 
troubles, and will have to be finalized. 
The bar-code printing software is a real 
bargain, and though it's *3 of 9 code" 
only, it represents an excellent way to 
get started in bar codes. 


(Model 100 Bar Code Reader from 
Bi-Tech Enterprises, Bohemia, NY, 
$279, and Bi-Tech Barprinting pro- 
gram for Radio Shack DMP printers, 
$29.95) 


—Jim Hawk 


SOFTWARE 


Data+ and Sort2+ 
A Database System 
For the M100 


[ Portable Computer support 
Group has released DA TA+ and 
SORT2+, two additional pro- 
grams in their series of business related 
software for the Model 100. According 
to their advertisement in PCM, DATA+ 
and SORT2+ are now stand-alone en- 
hancements of the programs PUT+ and 
SORT+, both part of the Businesspak+ 
series (PCM, August 1983). DATA+ 
makes the Model 100 a true database 
which has full editing and printing fea- 
tures and the capability of creating 
“form” letters when used with PCSG’s 
WRITE+. SORT2+ is an expanded 
version of SORT+ with lower memory 
requirements and better sorting rou- 
tines. 


DATA+ 

The software is furnished on tape 
enclosed in an 81” x 11” attractive 
binder containing 45 pages of excellent 
documentation. Three programs, an ad- 
dress file, a BASIC program and a ma- 
chine language program, must be loaded 
from tape to use DATA+. Two addi- 
tional programs are available for creat- 
ing note files and inventory files. The 
loading instructions are very clear and 
DATA+ uses a little less than 7K of 
memory. Though the manual does not 
say, 24K of memory will be required for 
easy operation of DATA+. 

The step-by-step documentation 
shows you how to easily use the address 
file feature of DATA+. When the 
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P+ADRS program is used, an address 
label format file is created and appears 
on the screen ready to be filled with 
data. Prompts are shown for each field 
which consists of first and last name, 
company, street, city, state, ZIP code, 
phone number, and two useful features, 
a memo space, and a code section. All 
are displayed on the screen together ina 
nice arrangement using inverse video to 
show the length of each field. When you 
have entered the data, F3 saves it auto- 
matically to the file. The files created are 
compatable with the built-in programs 
of the Model 100. If you wish to use the 
auto-dial feature of the Model 100, the 
manual reminds you to put “” in front of 
the phone number. If the prepared for- 
matted screen is not satisfactory for 
your use, custom formats are prepared 
and saved easily. Up to 16 fields are 
supported, but you are limited to screens 
of 40 x 8. 

What can you do with the DATA+ 
files you have created? You can review 
the files easily using the Fl key to either 
selectively or sequentially move through 
the file. The file can be edited anytime 
simply by erasing the field using the 
ESC key and entering the new data, or 
deleting and adding only those charac- 
ters to be changed, remembering to save 
each modified file with the F3 key. The 
files can be printed out to your printer, 
another file, or to tape. You can select 
the fields to be printed, and in which 
order or sequence, and which data or 
record from the files to print. The prin- 
ter fields can be set according to margin 
desired and number of lines, which is 
especially useful for using the data files 
for addressing form letters. The files can 
be compactly printed which allows the 
unnecessary spaces between the fields to 
be deleted. 

DATA £ will also merge any informa- 
tion from any record file that was 
created with DA TA+ into any text pre- 
pared froma text writer such as PCSG's 
WRITE+. The caret symbol (>) and the 
field number allow for inserting into 
text any of the field data information 
from a designated record, thereby creat- 
ing customized forms and reports. This 
feature alone is worth the price if you 
have standardized letters or forms which 
require data to be changed for each let- 
ter. The DA TA+ files are not limited to 
just address labels; with the capability 
of creating your own formats, such 
items as scientific reports, recipes, in- 
ventory lists, and personal notes can all 
be put into a form type letter. Even cus- 


tomized "junk mail" reports with ad- 
dresses and the body content changed 
can be effectively created. 


SORT2+ 

DATA+ created files can be rapidly 
sorted using SORT2+, a IK program 
loaded from cassette tape. After enter- 
ing SORT2+, you are prompted for the 
file you wish to sort and then the field 
you wish to sort. Quickly and accurately 
the file is sorted either alphabetically or 
numerically and in all uppercase fold, or 
uppercase ahead of lowercase. The re- 
cords must be of the same length. One 
very interesting feature of SORT2+ is 
:hat it will sort all numbers into the 
proper sequence regardless of how many 
spaces it has. No more numbers have to 
be entered as 00001. My church's mail- 
ing list, which included birthdates of all 
the members (over 100) took seconds to 
sort all the birthdays by month and day. 

Both DATA+ and SORT2+ are excel- 
lent programs for the businessman, man- 
ager, writer, and executive who desires a 
well-organized and efficient database 
program for the Model 100. DATA+ 
ind SORT2+ should be sold as a pack- 
age, as the SORT2+ program is almost 
a necessity for handling large data files. 


(Portable Computer Support Group, 
11035 Harry Hines Blvd., No. 207, 
Dallas, TX 75229. DATA- $59.95; 
SORT2- $29.95) 


— Vincent Lord 


SOFTWARE 


Quick Plot 
Provides Powerful 
Business Graphics 


Computer Solutions Company has 
recently released the Quick Plot/ 100 ver- 
sion for the Model 100 with a minimum 
of 24K. QuickPlot has been available 
for other TRS-80 and IBM-PC compu- 
ters for several months. What Quick- 
Plot can do is to rapidly plot bar charts, 
line charts, and very interesting pie 
charts. The package includes a 25-page 
documentation booklet with copies of 
sample charts and a cassette with the 
programs on the first side and sample 
formats and data on the flip side. 

Quick Plot is a business graphic pack- 
age for the Model 100 and requires 
Radio Shack's CGP-115 to plot the 
charts. The manual assumes you know 


very little about the operation of the 
computer and plotter and thereby makes 
the program exceptionally well suited 
for the businessman concerned with 
results and not programming techniques. 
The manual starts with the connections 
necessary for the plotter, a listing of the 
programs on the first side of the tape in 
order, and very detailed instructions on 
how to effectively load and use the soft- 
ware. To operate all the programs you 
must have the program "START," which 
is the menu driver, and the respective 
programs for the pie charts (FPIE and 
PPIE), bar charts (FBAR, DBAR, and 
PBAR), and line charts (FLINE, 
DLINE, and PLINE). The first charac- 
ter of each name gives the function of 
the program: F is format, D is data, and 
P is plot. The manual cautions to put 
into memory only one chart's programs 
at a time. One of the reasons is that 
START checks to see which programs 
are present in memory and auto-runs. 
The second reason is memory size. The 
pie chart programs consume approxi- 
mately 9K of memory without data and 
variable storage requirements. The bar 
chart programs are 15K while the line 
charts with 32 data points will leave just 
enough overhead to run. Before loading 
any of the programs, clean house, in- 
cluding all XXX.DO files. 

The documentation is quite good as it 
steps you through each format and data 
entry program necessary for plotting. 
One error in the text (corrected in later 
copies) is on Page 21, pie charting. 
PLINE should be PPIE. Once the pro- 
per programs are loaded, the screen will 
prompt you for 1) Create or Edit the 
format of the chart, 2) Create or Edit the 
data for the chart, 3) Plot, and 4) End. 
The formatting for the chart should be 
done first. After selecting “1” a second 
menu will appear asking whether you 
want to create, edit, plot, save, or return 
to menu. The first time, CREATE is the 
proper choice. Creating the format re- 
quires that you answer 16 to 18 blocks 
of questions about how you want the 
graph to look, including titles, group- 
ing of the data, keys to the plots and 
their locations, and line or bar colors. In 
addition, you can set the tick marks on 
both the X and Y axes, set the numerical 
range for each axis, and have at your 
option an overlay grid. Each formatted 
file is saved automatically when you 
enter the four-character file name. The 
software will add a two-character suffix 
to identify the file as a formatted file for 
the respective chart, ie XXXXFL.DO is 
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the formatted file for the line graph. If 
you makea mistake entering the format 
parameters or find that the graph needs 
to be changed after the plot is run, 
simply ask for EDIT on the second 
menu. After editing is completed, the 
file must be saved to upgrade the for- 
matted file. 

After the format is established, the 
data file is created. Here you are promp- 
ted to exceed the limits of the upper X 
and Y coordinates you formatted. After 
the data file is created, as with the for- 
mat files, editing is possible using the 
same techniques as for editing format 
files. At this point you are ready totrya 
plot. On the first try, ] was able to make 
a beautiful pie chart of my son’s ex- 
penses. The computer plotted the per- 
centages, gave labels to the different sli- 
ces, colored each slice with two colors, 
and offset one slice. The pie charts will 
take approximately five minutes or more 
depending upon the number of sections 
you require as the manual points out. (It 
suggests taking a coffee break, or maybe 
a short vacation.) The line charts, the 


first time, caused a slight problem in the 
memory overflow area. I tried to enter 
too many data points, but soon came up 
with a nice chart showing high tempera- 
tures for Louisville and Mankato, Min- 
nesota. The line charts require only a 
couple of minutes. The bar graph opera- 
tion went as well as the pie chart. The 
bar chart speed depends upon the num- 
ber of groups and the subsets in each 
group. 

The manual includes several techni- 
cal notes in the back that perhaps 
should be read before formatting or 
entering data. Information on changing 
the number of data points, entering 
months for the X axis labels, and how to 
solve the out of memory problem with 
more than 32 points in the line chart 
programs are all detailed. 

The sample programs contained on 
the flip side of the tape are very visual 
and really show how Quick Plot per- 
forms. Spending a moment or two with 
the examples is strongly suggested if for 
no other reason than to observe the 
tremendous power of Quick Plot. By 


using the editing feature you can step 
through the data and formatting used ih 
the examples. There is one quirk that 
could be easily changed; that is, to put 
the sample data in the same order as the 
BASIC programs on the first side. The 
pie chart programs are first on the first 
side, but the pie chart sample data are 
last on the flip side. 

If you have access to another TRS-80 
compue data files can be downloaded 
for use where more memory is required. 
This ability is really appreciated if you 
are gathering data out in the field and 
you run out of memory. 

If you need to do graphs and charts 
for your business or personal use, Com- 
puter Solutions has a best buy in Quick- 
Plot with very crisp looking plots and 
user-friendly software. 


(Computer Solutions Company, 901 
Embassy Square Boulevard, Louis- 
ville, KY 40299, $49) 


— Willis Rollins 


(continued from Page 5) 

Let's look at the concept in terms of the *word processor" 
you got with the 100. For the purpose of taking notes, 
writing short memos and the like, it is a nice little system. 
Not too complicated, a few very good features (especially 
cut and paste) but something a lot less than the two full- 
blown word processors which are now available from third 
party vendors. 

What concerns me is that this "bundling" of software can 
have the effect of "chilling" the third party market for other 
programs. If you would like to compare two systems in 
another field, I think the reason for the success of the TRS- 
80 Color Computer and the lack of success of the T1-99 is 
simply the ease which third party vendors have had in break- 
ing into the CoCo market. TI fought them; Tandy didn't. 
And look where the Color Computer is today as compared 
to the TI. One is riding high, the other is down the drain. 

For the most part, “bundled” software will not be the best 
— simply because it is free. Someone who is selling some- 
thing for value will be able to do more with his product than 
someone who doesn't. But I am concerned by the people 
who will not write word processors or database managers 
for the Portable Computer, simply because they think you 
already own one when you buy the machine. 

While Radio Shack has some excellent programs availa- 
ble for the Portable — and more to come — there are a lot of 
excellent programs out there to be written. And these are the 
programs which will make the PoCo market an extremely 
viable one in the months ahead. I’ve always felt good about 
Tandy's willingness to allow the third party market to work 
for it. And I think this will again be one more mark of 
success for this computer system. 

For that matter, so long as we are peering into the 1984 
crystal ball, one of the areas that I see expanding for the 
Portable in the next year is in specialty programs. We all 
know that Tandy needs to be certain that there will be some 


sure market for anything they publish, so their market tends 
to be horizontal, as far as software is concerned. But I see a 
great market for vertical software — construction estimat- 
ing, stamp collecting databases, airplane navigation and the 
like. Tandy often sees these markets as too narrow for their 
marketing efforts — but they are certainly wide enough for 
many of you to employ your own expertise and a little 
programming ability to find a nice niche in the “computer 
business." 

Finally, it would be inappropriate to close this message 
without saying thank you for your support for PCM in 1983. 
We look forward to working for and with you in 1984, and 
we wish you a happy, healthy and prosperous New Year. 


Lonnie Falk 





Back Issue Availability 


All back issues sell for the single issue cover price of $3. In 
addition, there is a $1.50 charge per issue for postage and 
handling within the United States, Canada and Mexico. 

VISA, MasterCard, and American Express accepted. 
Kentucky residents please add 5 percent state sales tax. 





Correction 


Dale Wheeler has brought to our attention an omission in 
his “Label Maker" program which appeared in our Novem- 
ber issue. A GOSUB was left out of Line 32 in Listing 2 (for 
parallel printers). The correct line follows. 


32 FORZ=1T04:E$=C$(Z) *SPACE$(AQ-LEN(C$(Z 
)) ) *D$ CZ) sLPRINTES; CHR$(13) j 32CLSCL* 1: NEX 


TZ:LPRINTCHR$(13) ş EHR$ (13) 1H CL=CL+21 IFCL 
= SSTHENGOSUB3I8: GOSUB18:GOTOS6ELSE34 
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The Rackseller 








ALABAMA Madison Arco Office Supplies OHIO 
Florence Anderson News Co. Scottsburg Radio Shack of Scottsburg Cincinnati Softwarehouse 
Madison Madison Books IOWA Toledo Leo's 
ALASKA Davenport Interstate Book Store Reitz Electronics, Inc. 
Fairbanks Electronic World KANSAS OREGON 
Fairbanks News Agency Wichita Amateur Radio Equipment Co. Eugene Libra Books, Inc. 
Kotzebue Arctic Bookstore, Inc. Lloyd's Radio Medford John's News Stand 
ARIZONA KENTUCKY Portland 80-Plus 
Phoenix Road Runner Benton Anderson Electronics Roseburg Rainy Day Bookshop 
Computer Pro Pikeville Gus-Stan Enterprises Tigard 80-Plus of Tigard 
Scottsdale Softwareland Corp. LOUISIANA PENNSYLVANIA 
Tucson Anderson News Co. Slidell Radio Shack Pleasant Hills — Pittsburgh Computer Store 
CALIFORNIA MAINE SOUTH CAROLINA 
Atwater Electro Brain South Portland Portland News Co. Greenville Palmetto News Co. 
Half Moon Bay — Strawflower Electronics Littleton Computer Plus Charleston The Green Dragon 
North Marlboro Radio Shack TENNESSEE 
Hollywood Levify Distributors Wobum Microcon Software Centers Antioch P.S. Computers 
Sunnyvale Computer Literacy MICHIGAN Chattanooga Anderson News Co. 
Hartford The Aetna Life Club Store NEBRASKA : Memphis Computer Center 
DELAWARE Unco Hobby Town Nashville Mosko's Book Store 
Wilmington Normar Inc.— The Smoke Shop NEVADA Smyma Delker Electronics, Inc. 
FLORIDA TEXAS 
Ft. Lauderdale Software Connection Es ise > N Hurley Electronics Austin Software & Things 
Miami Newsrack Merehəsiət Br ghts Dallas Micro Concepts, Inc. 
Panama City Computer Systems Group Petersborough Ge E See Elgin Homing Pigeon 
Pensacola Anderson News Co. West Lebanon Verham News Corp Ft. Worth A&A Intemational 
Tallahassee Anderson News Co. : RFI Electronics 
Winter Park Independent Computer Systems NEW JERSEY Irving Software Access 
GEORGIA Hackensack Total Circulation Service WASHINGTON 
Atang Guild News Agency R Odla rid 7" Ge rəli səl 
Columbus Muscogee Nevvs Co. Richland C & J Electronics Computer Center 
Trenton The Phone Line pe MEXICO Seattle Adams News 
ILLINOIS uquerque News and Bookstore WISCONSIN 
Chicago Kroch's & Brentano's 2007 FONN Appleton Badger Periodicals 
Jackson Street NEW YORK ` : Janesville Book World 
Kroch's & Brentano's Johnson City Unicorn Electronics Milwaukee Campus Comer 
Wabash Ave. New York City ` Usercom System, Inc. Portage Sam's Electronics 
Chicago Prairie News Agency NORTH CAROLINA ` CANADA: 
Oakbrook Kroch's & Brentano's Cary It's Just For You, Inc. ALBERTA 
INDIANA NORTH DAKOTA b Calgary Rainbow Software Services 
Elkhart Elkhart City News & Book Store Fargo Computer Associates Edmonton Kelly s Software Distributors 
Indianapolis A—Computer Store NOVA SCOTIA 
Halifax Atlantic News 


Also available at selected B.Dalton Bookseller stores in the United States and Canada. 








see and hear 
what’s new for your 


TRS-80° 


New Products 


M100 Briefcase 


Switch & Mux, Inc., of Merrimack, NH, 
has just released a new briefcase designed for 
the Model 100. 


Color 
Computer 


The briefcase is made of aluminum witha 
vinyl covering and has a three-position com- 
bination lock. Inside the base of the brief- 
case there’s a felt-covered foam insert which 
has cutouts for the Model 100, cassette 
recorder, AC line adapter, acoustic coupler, 
and a Ni/Cad battery charger. The cover 
assembly contains flaps for documents, mic- 
rophone and special holders for four extra 
Ni/ Cad batteries. 

The package includes the briefcase, foam 
insert, four Ni/Cad batteries and battery 
charger. The case is 21” x 15” x 4”, weighs 
approximately six pounds and retails for 
$135. 

For more information, contact Switch & 
Mux, Inc., 10 Oakridge Ave., Merrimack, 
NH 03054, or phone (603)424-4161. 


Feb. 17-19 


The Largest Color einer? Exhibition Under One Roof 


x “CoCo Community” Breakfast 
* Seminars On Many Subjects 
* See All The Latest CoCo Products 


HYATT-REGENCY LONG BEACH 


Sponsored by the RAINBOW 
The Premier Color Computer Magazine 


Cost: $12 Three-Day Ticket 
$ 8 One-Day Ticket 
$12 Breakfast Ticket 


Information: Cal/ (502) 228-4492 TRS-80 is a registered Trademark of Tandy Corp. 
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on the TRS-80 Model 100 with 8K RAM 
t ; 
Model 100 Cables stock #26-3801 


Model 100 8K Memory 
CoCo to Model 100 IRE $ 6 7 a Upgrade Module 
CoCo to Model I, II, III, IV 
— $24.95 $69.95 
PortCalc™ -Model 100 “elec- F ick deli il: 
tronic spreadsheet” with 14 Or SSES cay: 


column by 26 row workspace! 
— $69.95 


SPECTRUM PROJECTS 


93-15 86th DRIVE 
WOODHAVEN, NY 11421 
PCM (212) 441-2807 


lus $5 shipping and handlin 
RY. residents add sales tax e 


Call our Bulletin Board for free Model 100 programs. BBS #1 — (212) 441-3755 


Now on line .. . 20 MEG. CORVUS HARD DISK DRIVE BBS #2 — (212) 441-3766 
BBS #3 — (212) 441-5719 


each 














AT LAST: THE WHOLE 
TRUTH ABOUT FLOPPIES. 


Amazing book reveals 
all! 
How to keep from 
brainwashing your dis 
so İt never loses it's 
memory. 

How fingerprints ¢ 
actually damage disks. 
Unretouched Kirlian . 
photographs of UFO's 
(Unidentified Floppy 
Objects)! The incredible 
importance of making 
copies: the Department 
of Redundancy Depart- 
ment— and what goes on 
when it goes on! Power- 
ful secret methods that 
scientists claim can ac- 
tually prevent computer 
amnesial All this, and 
much more... 

In short, its an 80- 
page plain-English, 
graphically stunning, 
pocket-sized definitive 
guide to the care and 
feeding of flexible disks. 

For The Book, ask your 
nearest computer store 
that sells Elephant™ 
disks, and bring along 
one and one half earth 
dollars. 

For the name of the 
Store, ask us. 


ELEPHANT MEMORY 
SYSTEMS" Marketed 
exclusively by Leading 
Edge Products, INC, 
Information Systems 
and Supplies Division, 
55 Providence Highway, 
Norwood, MA 02062. Call 
toll free 1-800-343-8413, 
In Massachusetts, call 
collect (617) 769-8150, 
Telex 951-624. 


60: 






